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r*-i In the two and a half years since the Commodore 64 was first 

' ' introduced, it's become the home computer of millions of peo- 
ple. And its popularity shows no sign of decreasing. COM- 
PUTE! Publications has supported the 64 from the time of its 
introduction at the Summer 1982 Consumer Electronics Show, 
extending that tradition with a wide variety of books dedicated 
to the 64. 

COMPUTE's Third Book of Commodore 64 is now part of 
that tradition. With the same high-quality programs and con- 
cise writing that people have come to expect from COM- 
PUTE!, this book follows in the path of the best-selling First 
and Second Book of Commodore 64. Filled with articles and pro- 
grams from COMPUTE! magazine and COMPUTE's Gazette, 
many enhanced or extensively revised, as well as several 
never before published, this book presents the best programs 
from a strong group. It wasn't always an easy choice; there are 
always more to choose from than can fit in one book. 

You'll find a variety of programs and articles here. Some, 
like "Screen-80" and "HiSprite," are sophisticated programs 
that allow you to display 80 columns on your monitor or con- 
trol all aspects of sprites. Others, such as "BASIC Style: Pro- 
gram Evolution" and "Programming 64 Sound" are tutorials 
that show you how to write cleaner programs or how to get 
the most out of your 64's SID chip. Graphics and sound 
applications let you paint on a high-resolution screen, turn 
your 64 into an Atari-like graphics computer, and even 
manipulate sound parameters. Utilities enlarge your pro- 

j-»i grammer's toolkit with routines like "Crunch," "Machine Lan- 
' guage Saver," "Autoload," and "One-Touch Keywords." And 
"Programming Without the Keyboard," COMPUTERS first 64 

/— j programming utility designed for the physically handicapped, 
> allows joystick-controlled BASIC programming. 

Games, always a strength of the Commodore 64, are not 

n forgotten. "Mystery at Marple Manor" puts you in a house 
filled with potential suspects, possible murder weapons, and a 



n 



trail that can lead to only one conclusion. "Supertank" sets 
you in a modern armored battle, and "Reversi" lets you dem- 
onstrate your strategic planning and execution skills. 

There are even programs that insure error-free typing of 
both BASIC and machine language programs. 

From new owners to experienced programmers, everyone 
who has a Commodore 64 will find that COMPUTED Third 
Book of Commodore 64 contains valuable information, tested 
programs, and clear explanations. 
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n BASIC Style 

H Program Evolution 

Jim Butterfield 

| I Sometimes you see programs that are so crisp and 

neat that you wonder how the programmer's 
mind can be so orderly. The statements come out 
in an elegant, incisive style. Every line does ex- 
actly the right thing. But can you learn to pro- 
gram like that? 



How does a programmer develop an elegant style? Why can't 
you write like that? Sometimes you can feel inferior after look- 
ing at such immaculate programming style. Yet the program 
you see is often a matter of evolution — rewriting and tidying 
up. Just as a story or a novel isn't usually published after only 
one draft, a computer program may go through an entire se- 
ries of revisions. 

I've been accused of writing "squeaky clean" programs. 
That's not the way they start. Like most other programmers' 
work, my murky first attempts get reworked and tightened up 
into their final version. In fact, programming style often isn't 
what you write (at least at first) — it's knowing what to look 
for when you clean up. Since showing is better than just 
describing, how about taking a look at the evolution of one of 
my programs? 

A Simple Lister 

I needed to do an almost trivial job: list a sequential file from 
|— j disk to the printer. I had a minor extra feature to add: I 

wanted individual pages, so that the lines needed to be counted; 

I needed a title on each page; and at the end of the run, for the 
[""[ sake of neatness, I wanted the printer to eject the page. 

It wasn't a demanding task, but I'd like to show you how 

I went about it. Even a simple job like that can be revised and 
|~~| tightened up extensively. 
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(Note: If you want to use this program yourself, remem- 
ber that it's only for listing sequential files, not program files.) | J 

Here's my first program: I'll talk my way through the 
listing. 

100 open 4,3 

Open file number four to the screen. Why? So I can send the 

program's output to the screen and see that it's working right. i "~| 

After the program looks good, I'll change the above line to ' — ' 
OPEN 4,4 

105 OPEN 1,8, 3, "CONTROL" 

CONTROL is my input file to be listed. 

110 REM START OF PAGE 

120 FOR J=l TO 2:PRINT#4:L=L+lsNEXT J 

130 PRINT#4,"{5 SPACES} TITLE {3 SPACES}" :L=L+1 

140 PRINT#4 :L=L+1 

This prints the page title. I know the program will come back 
here for each new page, so I'm placing a REM statement to 
mark the place. I make sure that the program adds 1 to the 
line count, L, each time a line is printed. 

150 INPUT#1,A$:SW=ST 
170 PRINT#4,A$:L=L+1 

Here's where I input from disk and output (to the screen first, 
later to the printer). I have the program save the value of ST 
(the status variable) so that later it can check to see if this is 
the last line from the file. ST will be changed by the PRINT* 
command, so its input value is saved in variable SW. 

180 IF L<62 GOTO 250 

190 IF L=66 THEN L=0:GOTO 250 

200 PRINT#4:L=L+1:G0T0 190 

If the program has printed the maximum number of lines de- 
sired, I want it to eject the paper by printing until the line count, 
L, equals 66. Since each page has 66 lines, if L is greater than 
that, the next page has started and L can be set back to zero. 

250 IF SW<>0 GOTO 300 
260 IF L=0 GOTO 110 
270 GOTO 150 
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If the program finds the end of the input file (SWoO), it will go 
to line 300 and wind things up. Otherwise, I want it to go back. j j 

Lines 260 and 270 contain a cute touch — perhaps too cute 
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for some tastes. Variable L can be equal to zero only if a page 
has just been ejected. If so, I want the routine to go back to 
110 and print a new title. If not, I want it to get another line 
from the input file starting at line 150. 

300 IF L<>0 GOTO 190 

Here's a supercute trick. I pondered using this for a while, 
since it's almost too clever; that sort of thing can trip up your 
logic. Here's what I was thinking of: If the program's finished, 
but the paper hasn't been ejected, go back to line 190 and eject 
the paper. The program will branch back here again, but then 
L will be zero and everything can be wrapped up by closing 
the files with the next two lines. 

310 CLOSE l 
320 CLOSE 4 

That's it. It's really rather messy. It works, and for a tem- 
porary job that's all we would need. 

But it doesn't feel right. The code feels sloppy; it seems to 
jump around, and I don't get a feeling of smoothness in the 
program. If that feeling comes to you, you're telling yourself 
it's time to pick at the program. I listened to that instinct and 
began revising. 

First Revision 

The first awkward spot is around lines 190 and 200. The rou- 
tine to eject the paper works but looks clumsy. Besides, it's 
called twice (once when the paper's at 62 lines, and again at 
the end of the file). 

I have other ideas about this part of the program, too. It's 
a unit to do a particular job. I think it would be better to move 

r— 1 it to a separate subroutine where it can stand out as an identi- 

' ' fiable action. Sometimes I even create a subroutine out of 

some lines in the middle of the program and then move it 

r— 1 back later; it helps me identify the modules that make up the 

( program. Let's move the paper ejecting routine to a subroutine 

at line 500, clean up the program a bit, and see what we get. 

i— j It might look something like this: 

100 OPEN 4,3 

105 OPEN 1,8, 3, "CONTROL" 

110 REM START OF PAGE 

120 FOR J=l TO 2:PRINT#4:L=L+1:NEXT J 

130 PRINT#4,"{5 SPACES) TITLE {3 SPACES} " :L=L+1 
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140 PRINT#4:L=L+1 

150 INPUT* 1,A$:SW=ST 

170 PRINT#4,A$:L=L+1 

180 IF L<62 GOTO 250 

190 GOSUB 500:GOTO 250 

250 IF SW<>0 GOTO 300 

260 IF L=0 GOTO 110 

270 GOTO 150 

300 IF L<>0 GOTO 190 

310 CLOSE 1 { 

320 CLOSE 4 

330 END 

500 FOR J=L TO 66:PRINT#4:NEXT J 

510 L=0: RETURN 

You can see that the GOTO 250 in line 190 is redundant since 
the program will go there anyway. But we have other things to 
do. We're still trimming the program and have a ways to go yet. 

Digging Deeper 

Around lines 250 to 270, the program jumps around a lot. It 
has one jump forward to 300 and two jumps back to 110 and 
150. The logic seems scattered. 

I have a thing about loops: I like to see them neatly 
nested, with short jumps entirely within longer jumps. It 
might even be summarized as a rule of thumb: Where pos- 
sible, make short jumps as short as possible. 

Using this rule, I want to get the loop which returns to 
150 into logical order. That's first. Then I'll work on the longer 
loop to 110. Finally, I'll fix the forward branch to 300. We'll 
need to expand the logic using an AND operator, but that's 
not too hard. 

As the routine is written, certain logical things start to fall 
together. For example, we don't have to GOTO forward to line 
300. When we're finished writing the two loops, the program J j 

will fall into 300 naturally. (Naturally seems to be a key word in ' — > 

how programs seem to come together as you tighten them up.) 

We can also tighten up the page-eject conditions. If we j i 

write line 180 correctly, there'll be no need to go back to get a * — ' 

page ejection. One option would be to call the subroutine at 
500 twice. But if we think of what our objective really is at line | j 

180, we can do it all correctly the first time through. Inverting ' — ' 

the logic and adding an OR connective does the trick nicely. 

Look at how far the original program has come: 
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nl00 OPEN 4,4 
105 OPEN 1,8,3, "CONTROL" 

110 REM START OF PAGE 

120 FOR J=l TO 2:PRINT#4:L=L+1:NEXT J 

130 PRINT#4,"{5 SPACES} TITLE {3 SPACES} " :L=L+1 

140 PRINT#4:L=L+1 

150 INPUT* 1,A$:SW=ST 
r— , 170 PRINT#4,A$:L=L+1 
i 1 180 IF L>61 OR SW<>0 THEN GOSUB 500 

250 IF SW=0 AND L>0 GOTO 150 

260 IF SW=0 GOTO 110 

310 CLOSE 1 

320 CLOSE 4 

330 END 

500 FOR J=L TO 66:PRINT#4:NEXT J 

510 L=0: RETURN 

This is pleasing, but we can do even more. The repeated 
SW=0 test in lines 250 and 260 still irks me a little: It seems 
clumsy. The whole business is tied up in whether a title 
should be printed. Is there a better way? Could the test of L>0 
be somehow shuttled to the top of the loop instead of sitting 
at the bottom? 

The Header Module 

While we're thinking about it, that whole business of printing 
a header is really a module — we must do the whole thing, title 
and all, or nothing. If we move it out to a subroutine, we 
might see the logic flow more clearly. Let's do it and work on 
the logic flow. We'd end up with this: 

100 open 4,3 

105 OPEN 1,8,3, "CONTROL" 
110 IF L=0 THEN GOSUB 600 
150 INPUT#1,A$:SW=ST 
y\ 170 PRINT#4,A$:L=L+1 

180 IF L>61 OR SWO0 THEN GOSUB 500 
260 IF SW=0 GOTO 110 

n310 CLOSE 1 
320 CLOSE 4 
330 END 

500 FOR J=L TO 66: PRINT #4: NEXT J 
!"-■[ 510 L=0: RETURN 

1 600 FOR J=l TO 2:PRINT#4:L=L+1:NEXT J 

610 PRINT#4,"{5 SPACES} TITLE {3 SPACES }": L=L+1 
620 PRINT#4:L=L+1 
630 RETURN 
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Look at that main section from lines 100 to 330. It now seems , 

tight and concise, like a finely constructed poem. That's not a I | 

bad simile, for just as every word should count for something 

in a poem, so should every line in a program work towards ( . 

the final result. | | 

Both subroutines — at lines 500 and 600 — are called only 

once. If it seemed important, we could put them back into the ( , 

main program stream. But I'm happy to see them as clearly ( ( 

isolated modules. At this stage I would add comments (for in- 
stance, REM PAGE EJECT at line 499 and REM PAGE TITLE 
at line 599) to make the program even neater. 

Moral 

First, what you see published is not always the first idea that 
popped into the author's head. The programmer is not always 
smarter than you. Time and thought have been taken to 
groom the program into its final shape. When many people 
are going to read your code, you like to take a few extra pains 
with its appearance. 

Second, don't be afraid to revise your programs, even if 
they work correctly. Sure, a one-shot program might not war- 
rant picking over; use it and forget it. But sometimes, the ex- 
ercise can reveal, almost accidentally, powerful and effective 
programming methods. 

Third, style isn't an inborn talent that some people have 
and others don't. You learn it as you go. Some things you'll 
discover for yourself, and others you'll pick up by looking at 
other people's programs. 

The odd thing is that we instinctively recognize better 
writing when we have written it. It's the same with program- 
ming. You may not know exactly why, but you often feel good 
about a certain program. Usually, it's because it has style. ] 
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n Variable Storage 

n A Beginner's Tour of BASIC 
RAM 

Pete Marikle 

You can simplify the search for program bugs if 
you take a short tour through BASIC RAM and 
use this subroutine that displays variable values. 



Normally, you don't need to know what happens to your pro- 
gram when you type RUN. The BASIC interpreter takes over, 
leaving you free to use the computer to figure your income 
tax, write a letter, or save the galaxy. 

When your program crashes, though, or gives you an in- 
correct result, you have to switch hats. You're not just a com- 
puter user then; you have to be a programmer who can locate 
the bug and fix it. Debugging is easier if you can look at the 
values of your variables and arrays while the program is run- 
ning, to insure that loops are being completed and data is put 
in the right place at the right time. 

Programs 1 and 2, listed at the end of this article, are ex- 
panded and condensed versions of a subroutine that displays 
the current values of all program variables. By inserting STOP 
statements in any line where you suspect a problem, you can 
freeze the action and GOTO the subroutine to check your 
logic, statement by statement. 

A Quick Tour of RAM 

Before we examine the subroutine, let's take a short sightsee- 
ing tour through BASIC RAM to see where your Commodore 
64 stores programs and variables, how it tells a string from an 
integer variable, and how you might use less memory. You 
don't have to take this descriptive tour to use the subroutine, 
but it will give you a better idea of how the subroutine works. 

First, type in this short BASIC program. It lets you peek 
into the computer's memory. 
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10 S=256 s PRINT "{CLR} START ADDRESS" sINPUTZ 

20 s$="********************** " :TS="-~--- 

30 FORX=ZTO(PEEK(55)+S*PEEK(56) ) :PRINTCHRS ( 144)X,P 
EEK(X)SPC(2)CHR$(PEEK(X)) I / 

31 Y=X+1 I 1 

35 U=PEEK(45)+S*PEEK(46) sV=PEEK( 47 )+S*PEEK(48) :W=P 

EEK(49)+S*PEEK(50) 
40 IFY=UORY=VORY=WTHEN PRINTS$ I | 

45 IFX>=UANDY<VTHENT=T+1 :GOT047 ' — ' 

46 T=0 

47 IFT THEN IFT/7-INT(T/7) < .01THENPRINTT$ 
50 WAIT 197 ,32: NEXT 

60 REM END OF PROGRAM APPROACHING 

(If you want to use this program again, you should save it to 
tape or disk.) 

Now enter these two lines in direct mode (without using 
line numbers): 

AB = 12.34:CD = - 12.34: AB$ = "HELLO": AB% = 1983: AB(1) = 1 
11:CD(1)= -111:AB%(1)=1024 

AB$(1)="BYE" 

Hit RETURN after each line, and enter some more: 

DIMCD$(3,5,5):CD$(1,0,0) = "SEE":CD$(2,0,0) = "YOU":CD$(l, 
1,1)= "LATER" 

Hit RETURN again, and your computer will have at least one 
example of every type of variable stored in RAM. Now type 
GOTO 10 and press RETURN. Do not type RUN (it resets all 
variables). You'll see a prompt at the top of the screen; re- 
spond with 2250. 

The Program Looks at Itself 

The space bar is your one-touch control. Every time you press j J 

it, a line of infomation appears in black on the screen. Hold it 
down until the screen is nearly full, then sit back and take a 

look. You're looking at the middle of the tour program; the j j 

memory addresses are on the left, memory contents in the 
middle, and some interesting characters on the right. 

Some of those characters are meaningless, because a j j 

CHR$ interpretation of the contents of a memory location is 

invalid and out of context if the location contains a keyword, 

line link, line number, and so on. But many of the characters j j 
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are valid, recognizable translations of what you put into the 
program. These are the ones we'll look at. 

Use the space bar to move through another hundred or so 
i—) bytes, to address 2377. You're looking for the end of the 

I I BASIC program, represented by three consecutive zeros in the 

center column beside addresses 2377-2379. It's not hard to 
find with the REM billboard (created by line 60) and neat bor- 
ders in place. Now look at the first address after the three ze- 
ros. It should be 2380, the address produced by 
PEEK(45)+256*PEEK(46). Line 35 in the above routine sets U 
equal to that address. Hold the space bar down until 2380 is 
near the top of the screen. 

Scanning Variable Storage 

You're now in the area where strings and variables are stored. 
Everything in this area is in seven-byte clusters, which have 
been neatly separated with dashes for easy viewing. Find the 
characters A and B, followed by five more bytes (the cluster is 
in addresses 2380-2386). This first seven-byte cluster is the 
variable AB. The first two bytes are the variable name. The 
next five bytes contain the value you gave AB, but in floating- 
point arithmetic notation. Don't worry about how the math 
works. The decimal value is neatly tucked away in those five 
bytes. 

Note that the next variable, CD (addresses 2387-2393), 
has a similar structure. Remember that you put the same num- 
bers in CD as you did in AB, but you included a minus sign to 
make it negative. Take a close look at the five bytes following 
CD, and you'll see that the values are almost identical to those 
in the bytes following AB. The only difference is that the 
fourth byte's value is 128 greater than the corresponding byte 

J I in AB. You can check this for yourself by subtracting 128 from 

the byte in CD; you should get the value in the corresponding 
byte in AB. The high-order bit (bit 7) in that particular byte is 

' 1 used as a sign indicator: for positive numbers and 1 for neg- 

ative. Since that bit is on (set at 1) for variable CD, the byte's 

rn decimal value is 128 (2 7 ) higher. Your computer ignores that 

i \ bit in reconstructing the value of CD, but uses the bit when 

the time comes to determine the sign of the number. 

j] String Variables 

Press the space bar and look at the next cluster, representing 

H n 
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the string variable AB$. The A is clear enough, but where did 

the B go? Here's the secret: The second character of a string | | 

variable name is stored after adding 128 to the normal CHR$ 
value for that character. It's the high-order bit trick again. 

By checking to see if this high-order bit is 1 or 0, your ) j 

computer can tell whether this is a string or floating-point 

variable. Memory address 2395 has a value of 194 — subtract . 

128 from it and you have 66, which just happens to be the j ' 

CHR$ value for the letter B in AB$. Your computer now 
knows that the next byte (which has a value of 5 in the exam- 
ple) is the length of AB$ and the next two bytes give it the ad- 
dress where it can find the actual characters you designated 
for the string. The address is in standard low byte/high byte 
order (LB+256*HB=decimal address). The computer will start 
at that address, select a number of characters equal to the 
value (5) in the length byte, and then go on to do whatever 
you asked it to do with the string. 

The final two bytes of the cluster both hold 0; they're put 
in to fill up the seven bytes. 

That address for the string character can point to one of 
two very different areas of memory. If the string is assigned in 
the direct mode, the string characters themselves are stored at 
the top of free BASIC RAM. If the string is assigned by the 
program, the address points to the place in the program where 
the string values are assigned to the variable name. Since the 
characters must be stored as part of the program anyway, your 
computer doesn't waste RAM by repeating the characters in 
the variable storage area. 

An Unreadable Name 

Let's continue the tour. In the next cluster, notice that the vari- 
able name is unreadable. The symbols are a spade and a verti- j j 

cal bar, displayed in addresses 2401 and 2402 respectively. 
The values in those two bytes are 193 and 194. Subtract 128 

from each and you'll find the CHR$ values for the letters A j } 

and B of the integer variable AB%. 

When both characters in the variable name are greater 

than 127, your computer knows this is an integer variable, j j 

that only the next two bytes need to be looked at to obtain its 
value, and that the last three bytes of the cluster will be filled 
with zeros. As you can see, this cluster is in that format. ' j 

Those value bytes contain a signed binary number, a dif- 
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ferent form than you saw with the floating-point variables. 
Again, don't worry about the details of the math. The more 
compact method of storing integer variables doesn't do much 
r— > for you until you start using them in arrays. Integer arrays can 

i I cut your memory consumption considerably (two bytes versus 

five per entry). 
(— ! As long as we're talking about arrays, let's look at them in 

I I more detail. Hold down the space bar to pass by several clus- 

ters where the variables in this tour program are stored. 
You're approaching the address found by 
PEEK(47)+256*PEEK(48). That's the beginning of array stor- 
age. You'll know you're there when you see the borderline 
and the A and B characters in the right column. The memory 
address right beneath the border should be 2478. 

How Arrays Are Stored 

There are three kinds of arrays, paralleling the three normal 
variable types: floating-point arrays, integer arrays, and string 
arrays. Each can be multidimensional, but we'll cover that last. 
Your 64 allows you to use arrays with up to 11 elements 
(numbers 0-10) without a DIMension statement, but it does 
not reserve space for the array until you assign a value to one 
of the array elements. As soon as you do, it sets up an 11- 
element array, even if you used only one or two elements. Of 
course, you can dimension (with a DIM statement) for more or 
fewer elements if you wish. (For more information on arrays, 
take a look at "How to Use Arrays" in COMPUTED Second 
Book of Commodore 64.) 

Each one-dimensional array begins with a seven-byte 
definition cluster followed by the 11 -element clusters (or more 
or less according to the DIM statement). 

I 1 The seven-byte cluster holds the array name in the first 

two bytes, following the same general rules you saw for sim- 

__ pie variables, depending on the type of array. The next two 

{ bytes contain a link address to the next array set. The fifth 

byte tells you (and your computer) the number of dimensions 

„«_, in this array. The sixth and seventh bytes will show the total 

number of elements in the array set (11 for our unDIMed 
examples). These two bytes store the total in reverse high 
byte/low byte order. 

The element clusters that follow the definition cluster will 
be five bytes long for floating-point arrays, two bytes long for 
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integer arrays, or three bytes long for string arrays. These clus- 
ters contain the same kind of information held in the 
corresponding simple variables, but without the trailing zeros 
or repeated label bytes needed in variable storage. 

Unused Elements Contain Zeros 

Hold down the space bar until the first array, AB, nearly fills 
the screen. See the seven-byte cluster in memory addresses 
2478-2484? It's followed by five zeros only because AB(0), the 
first element of this array, has a zero value. The next five 
bytes represent the value you gave to AB(1). The following 
sets of zeros represent the remaining unused elements through 
AB(10). Use the space bar to look at the CD array, then con- 
tinue to the AB% integer array. 

Both begin with a seven-byte definition cluster, followed 
this time by 11 -element clusters of two bytes each. The lesson 
in saving memory with integer arrays is dramatic. 

Next, note the seven-byte cluster for the AB$ array and its 
11 three-byte clusters, each containing the string length byte 
and the address of the string characters. 

The Three-Dimensional Array 

If you move even further into the tour, you'll reach the sample 
multidimensional array. Things get a bit tricky here. The defi- 
nition cluster will now be more than seven bytes long. Add 
two bytes for each extra dimension. Remember, you can set up 
two, three, four, or more dimensions of any size if you have 
the memory capacity to handle them. The number of dimen- 
sions for each array set is held in the fifth byte (address 2675) 
of the definition cluster. The very next two bytes hold the 
number of elements in the nth dimension (n= number of 

dimensions); the next two contain the number of elements in J ( 

the (n— l)th dimension, and so on until finally the first dimen- 
sion is structured. You should see a and a 6 in 2676 and 

2677, another pair in 2678 and 2679, and a and a 4 in ad- j j 

dresses 2680 and 2681. The 6, 6, and 4 represent, in reverse 
order, the fact that you dimensioned CD$ as 3, 5, 5 (remember 

that arrays always start with 0). j j 

Immediately following the definition cluster, the array ele- 
ments will troop by in orderly formation. In this example, 
where you DIMed CD$(3,5,5), the order of the three-byte clus- j j 

ters will be: CD$(0,0,0), CD$(1,0,0)...CD$(3,0,0), CD$(0,1,0), 

14 U 



n 

H 



n 
n 



BASIC Programming 1 



p- j CD$(1,1,0)...CD$(3,1,0), and so on until CD$(3,5,5) is reached. 

' ' As you pass through this area, you'll see that the clusters 

for CD$(l / / 0) and CD$(2,0,0) are occupied. If you count, 
r— i you'll find that the position for CD$( 1,1,1) is also occupied, as 

' ! you directed. As with any string, the characters themselves are 

stored elsewhere. 

nlf you race through the rest of this array, you'll cross the 
PEEK(49)+256*PEEK(50) border into the area of unused 
RAM. Don't be surprised if you recognize some of it. You may 
find remnants from other programs which have been NEWed, 
or even CLRed variables. 

To end the tour, just hold down the RUN/STOP key and 
hit the space bar. 

The Variable Dump Utility 

Now let's try out the promised subroutine. Because it takes all 
the values stored in a section of memory and sends them to 
an output device, our subroutine is called a dump utility. Type 
NEW to get rid of the tour program, type in Program 1, and 
save it to tape or disk. The dump utility has high line numbers 
because it's designed as an easy add-on to existing programs. 
Type in a few sample variables in direct mode. You can 
enter the samples you used for the tour if you like. Again, do 
not type RUN; enter GOTO 44444 and press RETURN. Your 
variables should be displayed; the program won't show the ar- 
rays until you press the space bar. Note that the dump utility 
doesn't list the contents of multidimensional arrays. It's not 
hard to do, just time-consuming. The routine will simply tell 
you which multidimensional arrays have been implemented 
and what their dimensions and element sizes are. 



Pointer Settings Affect the Utility 

Now CLR your variables, enter this new temporary program 
step, and run the program again: 

10 A$="HELLO":A=1983:AB$(2)="HELLO AGAIN" 

_ Not much happens, because it ends at line 44443, the sub- 

) j routine protector. Type GOTO 44444 and hit RETURN to 

view your variables as before. Now for a surprise — when you 
type GOTO 44444 and hit RETURN one more time, you'll see 
lj a display of the variables used in the dump utility. 
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This happens because, on the first pass through the rou- 
tine, line 44444 reads the pointers before they are changed to 
make room for the routine's own internal variables. On the 
second pass, the new pointer values include the storage areas 
for the new variables. If you don't ever want to see the in- 
ternal variables, just modify line 44543 to read: 

IF PEEK(ZZ)=90 THEN RETURN 

Tailor the Utility for Your Needs 

You can customize the routine to fit your needs. For example, 
if you don't need the array and integer variable features, just 
delete lines 44465, 44525, and everything from 44700 on. 
That'll leave you with a much trimmer 800-byte package that 
will still dump all normal string and floating-point variables. If 
you delete one of the simple variable subroutines, though, you 
should also delete the corresponding array variable type. 
Eliminate REMs and spaces and you'll end up with a tidy util- 
ity well under 600 bytes that'll still fill most needs. Program 2 
is this condensed version. 

To use your dump utility as a debugging tool, simply in- 
sert STOP statements at desired points in your program, type 
GOTO 44444, analyze variable values, and then type CONT 
to continue to the next break. Add the appropriate printer 
commands, and the program will even dump to the printer. 



Program 1. Variable Utility, Expanded Version 

For mistake-proof program entry, be sure to use 'The Automatic Proofreader," Appendix C, 
with the next two programs. 

44440 REM{3 SPACES } DUMP.. . srem 164 

44441 REM***START WITH GOTO 44444 :rem 106 

44443 END: REM PROTECT SUBROUTINE :rem 41 

44444 ZB=PEEK(47)+256*PEEK(48)-7sZA=PEEK(45)+256*P 
EEK(46) :rem 185 . . 

44450 PRINT"STRINGS &{2 SPACES} VARIABLES: " :PRINT"* J / 

a*******************" :rem 114 

44460 FOR ZZ=ZA TO ZB STEP 7 :rem 39 

44465 IP PEEK(ZZ)>127 THEN GOSUB 44710 :GOTO44520:R j ( 

EM INT VAR :rem 171 J — ' 

44470 IF PEEK (ZZ+1)< 128 THEN GOSUB 44543 :GOTO 4452 

0:REM FP VAR :rem 177 
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44475 
44480 
44485 


1 I 


44490 


H 


44495 
44500 




44510 
44520 
44525 
44530 




44540 
44543 



i I 



44545 



44550 

44560 
44570 



44575 

44580 

44590 
44600 
44700 
44710 

44720 
44730 

44740 

44750 
44760 
44800 
44805 

44806 

44810 

44815 

44820 



REM*****STRING**************VARIABLE : rem 39 
GOSUB44485:GOTO44520 :rem 255 

PRI NTCHR$( 144) CHR$ ( PEEK (ZZ))CHR$ (PEEK (ZZ+1) - 
128)CHR$(36)CHR$(61); :rem 76 

ZY=PEEK(ZZ+3)+256*PEEK(ZZ+4):ZX=PEEK(ZZ+2) :R 
EM STRINGADDRESS AND LENGTH : rem 56 

IF ZY=0 THEN 44510 :rem 230 

FOR Z0=1TOZX:PRINTCHR$(PEEK(ZY) ) ; :ZY=ZY+1 :NE 
XTZ0 srem 234 

PRINT: RETURN : rem 165 

NEXTZZ :rem 242 

GOSUB 44805: REM DO ARRAYS NOW srem 
PRI NT : P RI NTCHR$ ( 144 ) "... . ALL DONE " : END 

:rem 75 
REM***FLOAT PT************VARIABLE :rem 187 
IFPEEK(ZZ)=90 AND(PEEK(ZZ+1)=65 OR PEEK (ZZ+1 
)=66)THEN RETURN :rem 148 

PRINTCHR$ ( 144 ) CHR$ ( PEEK (ZZ))CHR$( PEEK ( ZZ+1 )) 
CHR$(61); :rem 198 

Zl=2t ( PEEK (ZZ+2) -129) : rem 251 

Z2=128:Z3=256:Z4=1 : rem 62 

Z5=PEEK(ZZ+3): IF Z5>=128 THEN Z5=Z5-128 :Z4= 
-1 :rem 123 

J=PEEK(ZZ+4) :K=PEEK(ZZ+5) :L=PEEK(ZZ+6) 

:rem 179 
Z9=Zl+Z5*Zl/Z2+J*Zl/Z2/Z3+K*Zl/Z2/Z3t2+L*Zl/ 
Z2/Z3t3 :rem 145 

PRINTZ9*Z4 :rem 222 

RETURN :rem 222 

REM***INTEGER***************VARIABLE :rem 43 
PRINTCHR$ ( 144 ) CHR$ ( PEEK ( ZZ ) -1 28 ) CHR$ ( PEEK ( ZZ 
+1)-128)CHR$(37)CHR$(61); trem 12 

Z4=l:Z7=PEEK(ZZ+2):Z8=PEEK(ZZ+3) :rem 29 
IF Z7 >127THENZ7=255-Z7:Z8=256-Z8:Z4= -1 

:rem 25 
Z9=Z7*256+Z8:REMNOTE REVERSE HIBYTE-LOBYTE S 
EQUENCE :rem 114 

PRINTZ9*Z4 :rem 220 

RETURN :rem 229 

REM*** ARRAY***************VARIABLES:rem 240 
IFZQ=0THENZA=0:GOSUB44550:ZA%=0:GOSUB44720:Z 
R=2:ZQ=2:ZX=2:ZY=2:Z0=2 :rem 84 

REM ABOVE DUMMIES NEEDED TO STABILIZE 
{3 SPACES} POINTER TO ARRAYS : rem 240 
ZZ=PEEK(47)+256*PEEK(48):IFZZ=PEEK(49)+256*P 
EEK(50)THEN RETURN : rem 32 

PRINT "SPACEBAR WHEN READY{3 SPACES }FOR ARRAY 
S":WAIT197,32 :rem 25 

IF PEEK(ZZ+4) <>1THENGOSUB45110:GOTO44820:REM 
MULTI-D ARRAY :rem 125 
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44825 IF PEEK(ZZ)>127 THEN GOSUB 44900 :GOTO44820 :R 
EM INT ARRAY : rem 69 

44828 IF PEEK (ZZ+1)> 127 THEN GOSUB 45010 :GOTO44820 
:REM STRING ARRAY : rem 137 

44829 REM*****FLOAT PT ************ARRAY :rem 82 

44830 ZQ=ZZ:ZZ=ZZ+7 : rem 224 
44840 FOR ZR=0 TO PEEK( ZQ+6)+256*PEEK(ZQ+5) -1 :REM* 

*DIM :rem 70 

44850 PRINTCHR$ ( 144 ) CHR$ ( PEEK ( ZQ ) ) CHR$ ( PEEK ( ZQ+1 ) ) 

CHR?(40)ZRCHR$(41)CHR$(61); : rem 204 

44860 ZZ=ZZ-2:GOSUB44550:ZZ=ZZ+2 : rem 2 

44870 ZZ=ZZ+5 :rem 12 

44880 NEXTZR:IFZZ=PEEK(49)+256*PEEK(50)THEN RETURN 

:rem 108 
44890 GOTO44820 : rem 68 

44900 REM****INTEGER************ARRAYS : rem 101 
44910 ZQ=ZZ:ZZ=ZZ+7 : rem 223 

44920 FOR ZR=0 TO PEEK( ZQ+6 )+256*PEEK( ZQ+5)-l :REM* 

*DIM :rem 69 

44930 PRINTCHR$ ( 144 ) CHR$ ( PEEK ( ZQ ) -1 28 ) CHR$ ( PEEK ( ZQ 

+1)-128)CHR$(37)CHR$(40); : rem 251 

44940 PRINTZRCHR$(41)CHR$(61); : rem 233 

44950 ZZ=ZZ-2:GOSUB44720:ZZ=ZZ+2 : rem 1 

44960 ZZ=ZZ+2 : rem 9 

44970 NEXTZR:IFZZ=PEEK(49)+256*PEEK(50)THEN GOTO 4 

4530 :rem 197 

44980 RETURN :rem 233 

45000 REM****STRING*************ARRAYS : rem 80 
45010 ZQ=ZZ:ZZ=ZZ+7 s rem 215 

45020 FOR ZR=0 TO PEEK(ZQ+6)+256*PEEK( ZQ+5 )-l :REM* 

*DIM :rem 61 

45030 PRINTCHR? ( 144 ) CHR$ ( PEEK ( ZQ ) ) CHR$ ( PEEK( ZQ+1 ) - 

128)CHR$(36)CHR$(40) ; :rem 42 

45040 PRINTZRCHR$(41)CHR$(6D ; :rem 225 

45050 ZZ=ZZ-2:GOSUB44490:ZZ=ZZ+2 :rem 253 

45060 ZZ=ZZ+3 :rem 2 

45070 NEXTZR:IFZZ=PEEK(49)+256*PEEK(50)THEN GOTO 4 

4530 :rem 189 

45080 RETURN -.rem 225 

45100 REM**MULTI-D****************ARRAYS :rem 160 
45110 ZX=2 : ZY=2 : PRINTCHR$ ( 43 ) PEEK( ZZ+4 ) "DIMENSIONA 

LARRAY : " : PRINTTAB ( 5 ) ; : rem 16 

45120 IF PEEK(ZZ)<127THENPRINTCHR$(PEEK(ZZ)); :GOTO 

45140 :rem 111 

45130 PRINTCHR$(PEEK(ZZ)-128); :ZX=1 : rem 99 
45140 IFPEEK(ZZ+1)=0THEN45170 :rem 176 

45145 IFPEEK(ZZ+1)=128THEN ZY=1 :GOTO45170 : rem 180 
45150 IF PEEK(ZZ+1)<127THENPRINTCHR$(PEEK(ZZ+1));: 

GOTO45170 :rem 45 

45160 PRINTCHR$(PEEK(ZZ+1)-128);:ZY=1 : rem 195 
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45170 IF ZX=1 AND ZY=1THENPRINT"%" ; :GOTO45190 

:rem 122 
45180 IF ZY=1 THENPRINT"$"; : rem 17 

45190 PRINTCHR$ ( 40 ) ; :rem 129 

45200 Z9=PEEK(ZZ+4) : rem 84 

45210 FORZ8=Z9T01STEP-l:Z7=PEEK(ZZ+4+2*Z8)+(PEEK(Z 

Z+4+2*Z8-l))*256-l :rem 254 

45220 PRINTZ7; : rem 86 

45230 IFZ8=1THENPRINTCHR$(41) :GOTO45250 : rem 115 
45240 PRINTCHR$(44);:NEXTZ8 : rem 140 

45250 PRINT : rem 141 

45260 ZZ=ZZ+PEEK(ZZ+2)+PEEK(ZZ+3)*256:IF ZZ=PEEK(4 

9)+256*PEEK(50)THEN44530 : rem 107 

45270 RETURN :rem 226 

Program 2. Variable Utility, Condensed Version 

44443 END: REM MINIDUMP FPVAR & $ :rem 36 

44444 ZB=PEEK( 47)+256*PEEK( 48) -7 :ZA=PEEK( 45) +256* P 
EEK(46) :rem 185 

44460 F0RZZ=ZAT0ZBSTEP7 : rem 39 

44470 IFPEEK(ZZ+1)<128THENGOSUB44543:GOTO44520 

: rem 20 
44480 GOSUB44485:GOTO44520 : rem 255 

44485 PRINTCH R$ ( 144 ) CHR$ ( PEEK ( ZZ ) ) CHR$ ( PEEK ( ZZ+1 ) - 

128)CHR$(36)CHR$(61); :rem76 

44490 ZY=PEEK(ZZ+3)+256*PEEK(ZZ+4):ZX=PEEK(ZZ+2) 

: rem 168 
44495 IFZY=0THEN44510 : rem 230 

44500 FOR Z0^1TOZX:PRINTCHR$(PEEK(ZY));:ZY=ZY+1:NE 

XTZ0 :rem 234 

44510 PRINT: RETURN :rem 165 

44520 NEXTZZ : rem 242 

44530 END : rem 215 

44543 IFPEEK(ZZ)=90THENRETURN : rem 114 

44545 PRINTCHR$( 144 )CHR$( PEEK (ZZ) )CHR$ ( PEEK( ZZ+1 ) ) 

CHR$(61); :rem 198 

44550 Zl=2t(PEEK(ZZ+2)-129) : rem 251 

44560 Z2=128:Z3=256:Z4=1 : rem 62 

44570 Z5=PEEK(ZZ+3) :IFZ5>=128THENZ5=Z5-128 :Z4=-1 

:rem 123 
44575 J=PEEK(ZZ+4) :K=PEEK(ZZ+5 ) :L=PEEK(ZZ+6) 

:rem 179 
44580 Z9=Zl+Z5*Zl/Z2+J*Zl/Z2/Z3+K*Zl/Z2/Z3f2+L*Zl/ 

Z2/Z3t3 srem 145 

44590 PRINTZ9*Z4 -rem 222 

44600 RETURN srem 222 
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Making More lj 

Readable Listings lj 

Brent Dubach , , 

i ; 

Have you ever tried to find a key subroutine or 
loop in a long BASIC listing? If you have, you 
know how tedious it can be. This tutorial dem- 
onstrates some very sneaky BASIC editing tech' 
niques that you can use for more readable listings. 



A few carefully chosen variable names can help make the dif- 
ference between a readable program and an unintelligible 
mess. But BASIC does not make these choices easy. Did you 
ever want to use a BASIC keyword like TO or FN within a 
variable name, such as LET TOP =10 or PRINT FN$? 

Commodore BASIC won't allow it. But by fooling a cou- 
ple of BASIC routines, you can use these illegal variable 
names and do even more to improve the appearance of your 
listings. Let's see how to use this technique and then consider 
what makes it work. 

Illegal Variable Names 

The key is to use graphics characters where they normally 

don't belong. You're probably used to seeing a graphics 

character as the last character in the abbreviation of a BASIC 

keyword. For example, if you type a P followed by a SHIFTed j ( 

O, you'll see the letter P, followed by a graphics character. 

BASIC, however, understands that you mean POKE. But how 

will BASIC handle a graphics character in the middle of a | 

variable name? *" 

10 LET NJUMBER = 50 j j 

20 PRINT NJUMBER i — > 

To get the graphics character between N and U, type a 

SHIFTed J. You can use any graphics character that will not j j 

result in an abbreviation of a BASIC keyword. (For example, 

20 U 
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— | an N and a SHIFTed E combine to form the keyword NEXT.) 

- { - Now list the two-line program, and you should see the 

following on the screen: 

10 LET NUMBER = 50 
20 PRINT NUMBER 

Now run it, and this appears: 

50 
READY. 

Nothing too impressive. All you have is a program that lists 
and runs exactly as it would if you had left out the graphics 
characters. Now let's do something that's downright illegal. 

10 LET TOP = 65 

20 LET BOTTOM = 90 

30 PRINT BOTTOM - TOP + 1 

If you enter and run this program, you'll get a syntax error. 
The sequence TO may not appear anywhere within a variable 
name as it does here in TOP and in BOTTOM. It's reserved as 
a BASIC keyword (as in FOR J=l TO 5). 

Let's try to fool BASIC. You can place a graphics character 
(the SHIFTed J) just before the character that completes the 
BASIC keyword — that is, before the O in each TO. 

10 LET TJOP = 65 

20 LET BOTTJOM = 90 

30 PRINT BOTTJOM - TJOP + 1 

Here's what you see when you list it: 

10 LET TOP = 65 

20 LET BOTTOM = 90 

30 PRINT BOTTOM - TOP + 1 

These lines appear identical to the illegal program you entered 
just a moment ago. Now run the program with the embedded 
graphics characters. You should see: 

26 
READY. 

It works, with an illegal variable name in every line. Try it 
]— | with variable names such as LETTER, FN$, EFFORT, SEND, 

or your own favorite forbidden name. 

A word of caution, though. ST, TI, and TI$ are reserved 
pi variable names, not keywords like LET, PRINT, and other 

BASIC commands or functions. You'll not be able to use vari- 
able names whose first two letters match these (like START or 
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TIME) even with the technique described in this article. Since 
they are just variable names, however, you may embed them 
elsewhere within longer names of your own (FIRST and AT- 
TIC, for example, will work) without any special editing tricks. 

Indented Listings and Blank Lines 

Besides preventing the selection of certain variable names, 
BASIC also seems to prevent the entry of blank lines and 
spaces at the beginning of a line. Thus, it's not possible to 
neatly frame the blocks of code — loops or IF-THEN options or 
subroutines — that occur in a program. If you've programmed 
only in BASIC, you may not be concerned about this. But any- 
one who has used a computer language like Pascal appreciates 
being able to. see a listing like this: 

10 FOR I = 1 TO 10 

20 PRINT "WE INDENT EVERY STATEMENT" 

30 PRINT "THAT LIES WITHIN" 

40 PRINT "THE FOR-NEXT 'BLOCK'" 

50 NEXT I 

60 

70 PRINT "AND LEAVE A BLANK LINE BETWEEN BLOCKS" 

Try entering and listing the program above on your 64. Here's 
what you should see on the screen: 

10 FOR I = 1 TO 10 

20 PRINT "WE INDENT EVERY STATEMENT" 

30 PRINT 'THAT LIES WITHIN" 

40 PRINT "THE FOR-NEXT 'BLOCK'" 

50 NEXT I 

70 PRINT "AND LEAVE A BLANK LINE BETWEEN BLOCKS" 

The blank line and all the indentations have disappeared. Of 
course, Commodore BASIC lets you place a single colon at the 
start of each line and then indent as much as you wish. But j _j 

that's not quite the same as a nice, clean blank line. 

Once again, you can type an extra graphics character and 

fool BASIC. When entering a program, many people type a J j 

space after the line number for readability. But instead of the 
space, you can type the SHIFTed J. Reenter the preceding pro- 
gram this way: j \ 

10JFOR I = 1 TO 10 

20J PRINT "WE INDENT EVERY STATEMENT" 

30J PRINT "THAT LIES WITHIN" | 

40J PRINT "THE FOR-NEXT 'BLOCK'" 
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50JNEXT I 

70JPRINT "AND LEAVE A BLANK LINE BETWEEN BLOCKS" 

Now when you type LIST, you see an indented format identi- 
cal to the one you first tried to enter. 

Fooling BASIC into giving you a blank line is a little trick- 
ier. A single SHIFTed J will not do the job. If you add a line 
99, say, to your program and put only the graphics character 
on that line, line 99 will still not show up in the a listing. But 
try entering this (note the space between the two SHIFTed Js): 

99 J J 

Now type LIST and you'll see a blank line 99. 

Paying the Price 

There is a price to pay for all this. The most obvious is mem- 
ory consumption. Long variable names and indentation gobble 
up a lot of bytes. A final version of a routine, though, can be 
condensed by a good list-crunching program (such as 
"Crunch," found elsewhere in this book), while the original 
remains a very readable version for later examination or re- 
vision. And with the Commodore 64, most times you don't 
have to worry about memory limitations. 

Another penalty is simply the bother of remembering to 
type extra characters. Be careful whenever you try to edit a 
line. To preserve any indentation, you must enter a SHIFTed J 
in place of the space following the line number each time you 
change the line. And it's easy to forget to convert a variable 
name this way by inserting a graphics character within an 
embedded BASIC keyword. If you do forget, you'll be re- 
minded when you get a syntax error in the program. So watch 
your editing steps carefully. 

If you're a hunt-and-peck typist, you might find entering 
all these extra characters a nuisance. But a little irritation can 
lead to a lot of satisfaction when you get a more readable pro- 
gram listing. 

How Does It Work? 

There are BASIC routines that run and list a program. If 
you've experimented with the short listings here, or with your 
own, you've already proved that the RUN command appar- 
ently doesn't mind using keywords in variable names, and 
that the LIST command seems to accept leading spaces in 
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indented lines. If these key routines are so tolerant, what is it \ \ 

that requires us to be so sneaky in achieving these results? The < — 1 
answers lie in the behavior of several other parts of BASIC. 

Are They Really Illegal? Li 

First, let's consider illegal variables and a BASIC routine we'll 

call TOKENIZE. , ( 

We usually think of BASIC commands as words like IN- i / 

PUT or LET or GOTO. But the RUN routine does not see it 
that way. By the time RUN sees a program, BASIC keywords 
have been replaced by single-byte numeric codes, or tokens. 
TOKENIZE is the part of BASIC that translates the keywords 
you enter into these codes. For example, when you type the 
word INPUT, TOKENIZE collects the characters in that word 
from the five bytes of memory they occupy, matches them 
with a word in the computer's list of BASIC keywords, and 
then replaces them with the token for INPUT (the number 
133), which takes up only one byte. This saves space in 
BASIC memory. 

But TOKENIZE also discards any out-of-place graphics 
characters as it crunches a BASIC command into the comput- 
er's memory. This is what allows us to enter forbidden vari- 
able names. When you insert a graphics character (like the 
SHIFTed J) in the middle of what would otherwise be a 
keyword, imagine how TOKENIZE must react. Does it ever 
find the word INPUT? Not quite. As it is collecting characters, 
it's interrupted before finding a perfect match with the BASIC 
word INPUT. The match is a failure, but the character which 
foiled it is eventually discarded. When RUN gets at the pro- 
gram, it now finds a plain INPUT (five bytes worth) instead of 
the single-byte token that represents the INPUT command. , 
Any such character string is treated as a variable name. i | 

Our illegal variable names, then, are not illegal at all. You 
just have to be sneaky enough in entering and editing them to , , 
prevent TOKENIZE from doing its job. { ) 



\ | 



Finding the Right Routine 

And what of the graphics character used at the beginning of 
an indented line? 

TOKENIZE is involved again, this time because it does 

just what you want done: It keeps spaces right where you put | [ 

them. Some other parts of BASIC use a routine that discards 
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r-j spaces. One of these is the part that translates the characters 
' — ■> in a line number you type to the numeric form in which it is 
stored. Try leaving a space between two digits in a line num- 

nber. No problem — the spaces are discarded and the line num- 
ber appears in a listing just as if you had not inserted them. 

BASIC continues to throw away spaces until a nondigit 
character which eliminates all indented lines is found. The rest 
of the line is turned over to the TOKENIZE routine. But by 
then it is too late: All indentations have already been stripped. 

Our strategy must be to place a character immediately 
after the line number so that the following spaces will be han- 
dled by the right routine for our purposes — by TOKENIZE. A 
graphics character, first recognized as a nondigit character in 
the collection of a line number and then neatly discarded by 
TOKENIZE, is the perfect choice. 

Guarding the Blanks 

Finally, you may recall that in order to create a blank line (but 
which still has a line number), you needed first a graphics 
character, then a space, then a second graphics character. The 
reason for the first was just discussed. A space is needed so 
there will be something on the line for TOKENIZE to accept. 
Remember that entering a completely blank line just results in 
its elimination from the program. But what of the second 
graphics character? If TOKENIZE doesn't mind spaces, why 
shouldn't it accept a whole line full of them following the ini- 
tial graphics character? 

In the first place, you probably want only one space — just 
enough to create a blank line. And second, TOKENIZE never 
gets to look at those trailing spaces anyway. The very first part 
of BASIC involved in handling a new line, the part that col- 
lects characters off the screen, discards these spaces. Both 
graphics characters are needed to protect lone blanks from the 

n space-killing habits in a couple of parts of BASIC. If you want 
blank lines with a lot of spaces, though, there is no reason 
why you couldn't enter one with, say, 70 of them. Just be sure 
they have graphics "bodyguards" on either end. 
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Mystery at Marple 
Manor 



,— *) John R. Prager 



You've been summoned to Marple Manor on a 
dark and stormy night to investigate the un- 
expected demise of one of the dinner guests. Clues 
are everywhere, but can you discover who did it, 
to whom, how, and where? A mystery text- 
adventure for one to six players. 



Searching through the study, you find a duelling pistol hidden 
under a cushion. Later, you discover the cook cowering in a 
closet. The greenhouse door is locked, but you have the key. 
And there, concealed in the potted ferns, is the body of the 
Duchess. 

Your job is to find out "whodunit," and how, before the 
other detectives crack the case. They're a shifty lot, who might 
hide vital clues or steal the evidence you've accumulated, just 
to throw you off the track. There are over 15,000 possible 
solutions, but only one correct answer. A different mystery is 
chosen each time the program runs. It's a race against your 
fellow sleuths to find that unique answer. 

"Mystery at Marple Manor" may be a departure from the 
computer games you're used to playing. Patient strategy is 
J""""] more important than quick reflexes for the successful detec- 

tive. In many ways, the game resembles computer text- 
adventures, as well as familiar board games of logic and 
deduction. 

For Sleuths Only 

Type in and save Mystery at Marple Manor. Use "The Auto- 
matic Proofreader" (Appendix C) to insure an error-free copy 
of the program the first time. Although the program is a bit 
long, much of it is in the form of PRINT statements, which 
should be easier to enter than other BASIC program statements. 
In order to solve the case, you must correctly identify the 
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murderer, the victim, the weapon used, and the room where 
the heinous deed was done. Before you arrived, the manor 
held ten people and twelve possible weapons; however, the 
murderer has fled to parts unknown with the weapon he or 
she used, leaving behind the body of the victim, eight poten- 
tial witnesses, and only eleven weapons. 

As you travel through the mansion, use paper and pencil 
to keep a careful record of all suspects and weapons you see. 
When you've located all the objects that remain in the house, 
use the process of elimination to identify the murderer and 
weapon used. The victim's body is also in one of the rooms; 
once you find it, you can record the victim's identity and the 
scene of the crime. 

It sounds simple, but there are complications. At the out- 
set, many of the suspects and weapons will be hidden in the 
various nooks and crannies of the manor. You and your fellow 
detectives may have to search each room thoroughly, possibly 
several times, before all the concealed items are discovered. 
The detectives can even pick up and move items from room to 
room in the course of play. Suspects and the body of the vic- 
tim cannot be moved, but they can be hidden by detectives in 
the same room. 

Marple Manor is a house of 14 rooms. Part of the fun of a 
game like this is to discover the floor plan. (If you really want 
help in the form of a map, you can refer to the September 
1984 issue of COMPUTE'.'s Gazette, where this game originally 
appeared.) Up to six people can play, and all players begin the 
game in the foyer at the southern end of the house. Detectives 
alternate turns until one correctly solves the mystery, or until 
all have made incorrect guesses and, consequently, have been 
eliminated from the game. Although each player takes a sepa- 
rate turn, the game works just as well if the players form J J 
teams of equal size. This allows two or three teammates to 
travel through the house independently, yet share their 
discoveries and arrive at a solution together. j! 

Passwords and Locked Doors 

The game begins with a title screen and a thunderclap. This ) j 

gives detectives time to assign player numbers, organize teams 
(if desired), and ready their notepads. Type a number from 1 
to 6 to enter the number of players, and the game begins. \ \ 

At this point, all players except the first should position """"" 

30 U 



/ \ 



/ \ 



Recreations and Applications 2 



n 
n 



<!— * themselves so they can't see the screen. After all, each player 

'_< will be acquiring information in the course of the game that he 
or she wishes to keep secret from the others for as long as 
possible. To help preserve secrecy, you'll be asked to enter a 
password code on your first turn. This password can be any 
two characters from the keyboard — numerals, letters, spaces, 
special symbols, or even function keys. Be sure to choose a 
code that you can recall easily, and bear in mind that the com- 
puter will recognize shifted keys and unshifted keys as dif- 
ferent entries. On later turns, you must enter your secret code 
before going on. This prevents other players from illegally us- 
ing your turn to gather information for themselves. 

After you type in your password, the computer reminds 
you of your current location and asks if you wish to move. If 
you answer yes, the computer lists all available exits. Type in 
the appropriate compass direction (N, S, E, or W) to move to a 
new room. If you try to move in a direction that doesn't have 
a matching door — for example, if you try to move south from 
the foyer — your move will be blocked. 

Your move may also be blocked if you attempt to move 
through a locked door. Eleven doors in Marple Manor can be 
fastened shut, and at the start of the game, most of these 
doors are locked. To move through a locked door, you must 
possess a key which matches the lock; for example, the bed- 
room key will open any door that adjoins the bedroom. All of 
these keys are initially placed in the pantry. One special key, 
the skeleton key, can open any locked door but is powerless to 
lock doors; its starting location will vary from game to game. 

Whether or not you move to a new room, the computer 
describes your surroundings. It tells you the room you're in; 
,— , notes what item you carry, if any; lists all suspects, weapons, 
i I and keys in view; and names all the other players in the room. 

,__, Searching for Clues 

Following the description, you'll see a list of choices. Select 
from these options by pressing the appropriate key. One op- 
tion is to take no action; this allows you to end your turn and 
readies the computer for the next player. 

Searching is the most popular option. At the start of play, 

^ many suspects and items are hidden in various rooms. 

it_ J Additionally, players may use the Hide option to stash away 
even more clues. Searching is the only way to find these 

H 
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hidden objects. Each time a player searches in a given , ,> 

room, there's a 50 percent chance of finding each item hidden t i 

in that area. For this reason, a room may be searched several 

times before all the objects it contains are revealed. A search- , 

ing player does not automatically take any item he finds. i / 

The Hide option is the logical counterpart to the Search. 
You may choose to hide any one object in the room you oc- , , 

cupy. This object may be a weapon, a suspect, a key, or the L^ 

corpse. You may even hide the object you're carrying. But you 
can't hide yourself or another player. Hiding items makes it 
more difficult for your opponents to locate the clues they need 
in order to win. Don't forget, of course, to record each clue in 
your notes before you hide it. Hidden objects may be sub- 
sequently discovered by any player searching in the room. 

The Take option allows you to pick up a weapon or key in 
the room you occupy. You may carry only one item at any 
time. If you choose the Take option while holding an object, 
you automatically drop the object you're holding. Alter- 
natively, the Drop option allows you to discard an item with- 
out taking another. The usefulness of the Take option cannot 
be overstated: Carrying keys allows you to pass through 
locked doors, while weapons in your possession cannot be 
discovered by players who search. However, the Pilfer option 
allows a player to steal from another player in the same room. 
The pilfering player drops any item carried, and takes the ob- 
ject the other player had held. 

When you're certain you have the solution to the case, se- 
lect the Accuse option. You'll be asked to identify the mur- 
derer, the victim, the weapon, and the scene of the crime from 
lists of the possibilities. An incorrect guess eliminates you from 
further play. Give the correct solution, though, and you win 
the game. l^J 

Mystery at Marple Manor 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 1 ! 

9 POKE53280,1:POKE53281,0:S=54272:FORJ=0TO24:POKES 
+J,0:NEXT:POKES+24,15 : rem 35 

12 PRINT"{CLR}{6 DOWN} "TAB( 7) " |8§ [RVS} g* | {4 RIGHT} | 1 
£" :rem 121 \-^ 

13 PRINTTAB(7)"{RVS} g*§{2 RIGHTjf " : PRINTTAB (7 ) " 
{RVS}{2 SPACES }g*j£{ 2 SPACES} {OFF} YSTERY" 

:rem 238 
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15 PRINTTAB(7)"{RVSj B{2 SPACES }B " :PRINTTAB ( 7) " 
{RVS} B{2 SPACES }B ": PRINT" {3 UP } "TAB ( 21 )CHR$ ( 1 
42); :rem 153 

24 GOSUB1713:PRINT"AT" : rem 82 

27 PRINT"{DOWN}"TAB(12)"g5i{RVS}g*3{4 RIGHT}£":PR 
INTTAB ( 12 ) " { RVS } g*l {2 RIGHT }£ " : rem 42 

28 PRINTTAB(12)"{RVS}{2 SPACES } g*}£{ 2 SPACES} 
{OFF} ARPLE" srem 102 

30 PRINTTAB(12)"{RVS} B{ 2 SPACES }B " :PRINTTAB( 12 ) " 
{RVS} B{2 SPACES}B " :rem 129 

33 PRINT"TUP}"TAB(17T"i43{RVS}|*l{4 RIGHT}£" : PRIN 
TTAB(17)"{RVS} g*3{2 RIGHT}£ " :PRINTTABTl7 ) " 
{RVS} {2 SPACES }g*j£{ 2 SPACES} {OFF} ANOR" 

:rem 167 
36 PRINTTAB(17)"{RVS} B{2 SPACES }B " :PRINTTAB ( 17 ) " 
{RVS} B{2 SPACES }B ir : rem 145 

39 GOSUB1713 " : rem 184 

42 FORJ=1TO1000 :NEXT :rem 226 

45 POKES+5,15:POKES+6,0:POKES+4,129 : rem 57 

50 J=1:FORI=1TO15:POKE53281,J:POKE53280,1-J:rem 31 

51 POKES+l,INT(RND(l)*20)+5 : rem 254 
53 J=1-J:FORP=1TO30:NEXT:NEXT :rem 110 
56 POKES+4,0 :rem 168 
100 DEFFNR(X)=INT(RND(1)*X)+1:J=RND(-TI) :rem 108 
103 DIMP%(50),S$(22),R$(14),C$(6),V$(3),V(3),D%(10 

, 2 ) : rem 56 

112 FORJ=1TO10:P%(J)=FNR(11)+3:NEXT : rem 46 
115 F0RJ=11T022:P%(J)=FNR(13)+1:NEXT :rem 101 
118 FORJ=24T031:P%(J)=4:NEXT : rem 169 

121 P%(23)=FNR(8)+6 :rem 204 

124 J=FNR(10) :P%(35)=J:P%(34)=P%(J) :P%(J)=0:rem 16 
127 J=FNR(10) :IFP%(J)=0THEN127 :rem 200 

130 P%(32)=J:P%(J)=0:J=FNR(12) :P%(33 )=J :P%( J+10)=0 

:rem 136 
133 F0RJ=1T022 : IFRND( 1 ) <= . 75THENP% ( J )=-P% ( J ) 

:rem 56 
READS$(J) :NEXT :rem65 

FORJ=lT014:READR$(J):NEXT : rem 36 

FORJ=0TO10 : READD% (J,1),D%(J,2):I FRND( 1 ) < . 9THEN 
D%(J,0)=-1 :rem 122 

NEXT :rem 215 

FORJ=0TO3:READV$(J):NEXT :rem242 

P=2049:I=0:FORJ=4000TO7000STEP1000 : rem 188 
IFJ=PEEK( P+2 )+PEEK( P+3 ) *256THENDA( I )=P:I=I+1 :G 
OT0157 :rem 54 

P=PEEK(P)+PEEK(P+l)*256:GOT0151 : rem 11 
NEXT :rem 220 

PRINT" {HOME} {21 DOWN} {BLK} {6 SPACES}HOW MANY P 
LAYERS (1-6) ?" srem 218 

17 5 GETA$:IFA$<"l"ORA$>"6"THEN175 : rem 75 
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178 I=VAL(A$):P%(49)=I srem 178 

181 F0RJ=1T0I:P%(35+J)=1:NEXT :rem 233 

190 PRINT"{CLR}{2 DOWN} [:45|ALL PLAYERS EXCEPT PLAYE 

R #1 MUST LEAVE "CHR$( 14) : rem 7 

192 PRINT "THE ROOM AT THIS POINT. ": PRINT" {DOWN} 
{3 SPACES } PLAYER # 1: PRESS {RVS} RETURN {OFF} 

:rera 152 

193 PRINT"{7 SPACES}TO BEGIN THE GAME!" :rem 146 

194 GETA$:IFA$<>CHR$(13)THEN194 : rem 14 
196 POKE53280,12:POKE53281,15sQ=l :rem 87 
200 PRINT"{CLR}{2 DOWN} {BLK } PLAYER #"Q" 

B43{DOWN}" :rem 120 

203 IFC$(Q)<>""THEN212 : rem 175 

206 PRINT "PRESS ANY TWO KEYS TO ESTABLISH YOUR" 

:rem 37 

207 PRINT"SECRET CODE. WITH THIS CODE, NO OTHER" 

:rem 211 

209 PRINT"PLAYER CAN STEAL YOUR TURN! " :PRINT" 
{DOWN} ENTER YOUR CODE NOW!" :rem 214 

210 GOSUB1700:C$(Q)=A$:GOTO218 : rem 206 
212 PRINT" {DOWN} ENTER YOUR SECRET CODE! " :GOSUB1700 

:rem 72 
215 IFC$(Q)<>A$THENI=0:GOSUB1710:GOTO200 : rem 124 

218 PRINT"{CLR}{2 DOWN} {BLK } PLAYER #"Q" 

§41 {DOWN}" :rem 129 

221 R=P%(35+Q) : PRINT "YOU ARE IN THE "R$(R)'\" 

:rem 49 
224 PRINT'VDO YOU WISH TO LEAVE THIS ROOM [Y/N] ?" 

:rem 6 
227 GETA$:IFA$="N"THENPRINT"NO":GOTO330. :rem 3 
230 IFA$<>"Y"THEN227 " :rem 106 

233 I=1:J=R:GOSUB1730:FORJ=0TO3:READV(J) :NEXT 

:rem 85 
236 PRINT"YES": PRINT "{DOWN} DOORS FROM THIS ROOM AR 
E FOUND TO THE:" : rem 187 

239 FORJ=0TO3:IFV(J)<>0THENPRINTTAB(4) ;V$(J) 

:rem 222 
242 NEXT: PRINT "{ DOWN }TYPE {RVS}{BLK} N {OFF} , 
{RVS} S {OFF} , {RVS} E {OFF} ,§4TOR {RVS} 
{BLK} W {OFF}g4§ TO MOVEl":I=3 srem 227 
245 GETA$:IFA$=""THEN245 : rem 89 ! ! 

248 A=ASC(A$)OR128:I=0:IFA<197ORA>215THEN245 ^ 

srem 62 
251 IFA=ASC(V$(I))THEN260 srem 168 | , 

254 1=1+1 SIFK4THEN251 srem 15 

257 GOT0245 srem 114 

260 PRINT"GO "V$(I) srem 147 

261 IF V(lT<lTHENPRINT"NO DOOR THIS WAY. YOU CAN'T \ I 

MOVE."sGOTO1910 srem 154 ( — ' 
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263 IFV(I) <100THENR=V( I) :PRINT "MOVING TO NEW ROOM. 

":FORI=1TO1000:NEXT:GOTO330 : rem 166 

266 Z=V(I)-100:IFD%(Z,0)=0THEN300 : rem 75 

269 PRINT"THAT DOOR IS LOCKED" :GOSUB1760 :rem 45 

270 IFA=0THENPRINT"YOU DON'T HAVE A MATCHING KEY." 
:PRINT"NO MOVE. " :GOTO1910 :rem 65 

272 PRINT"YOUR KEY OPENS THE DOOR. " :GOSUB1770 :PRIN 

T "MOVING TO NEW ROOM." : rem 200 

300 I=D%(Z,1) :IFI=RTHENI=D%(Z,2) : rem 82 

303 R=I:GOSUB1760:IFA<>1THEN330 :rem 112 

306 PRINT "DO YOU WANT TO LOCK THIS DOOR BEHIND 

{4 SPACES }YOU{ 2 SPACES } [Y / N] ?" :rem 96 
309 GETA$:IFA$="N"THENPRINT"NO":GOTO330 :rem 4 
312 IFA§<>"Y"THEN309 : rem 108 

315 PRINT "YES ":GOSUB17 70 :PRINT "DOOR LOCKED.": rem 3 
330 P% (Q+35)=R: PRINT "{ DOWN }{CLRT{ 5 DOWNjYOU ARE IN 
THE "R$(R)"." :rem 43 

333 PRINT"YOU CARRY " ; :I=P% (Q+41 ) :GOSUB1780 :PRINT" 

." :rem 205 

336 J=0:PRINT"YOU SEE THE FOLLOWING HERE:": rem 168 
339 F0RI=1T031:IFP%(I)=RTHENJ=J+1:PRINT"{3 SPACES} 

";:GOSUB1780: PRINT"." :reml6 

342 NEXT: FORI=1T06:IFIOQANDP%( 35+1 )=RTHENPRINT" 

{3 SPACES JPLAYER #"I " . " : J=J+1 :rem 252 

345 NEXT:IFP%(34)=RTHENPRINT"{3 SPACESjTHE BODY OF 

THE "S$(P%(35))".":J=J+1 :rem 180 

348 IFJ=0THENPRINT "NOTHING OF INTEREST." : rem 173 

351 PRINT" {DOWN} PRESS {RVS}{BLK} RETURN 

{SHIFT-SPACET{OFF}i43 FOR OPTIONS ":rem 158 

354 GETA$:IFA$<>CHR$(13)THEN354 : rem 10 

375 PRINT "{CLR}" : rem 3 

376 PRINT"{4 D0WN}{BLK}{3 SPACES}>>>>> TURN 

{ SHIFT-SPACE } OPTIONS <<<<<{2 DOWN }": PRINT " |4§ 
{RVS}A{OFF} ACCUSE THE MURDERER I" :rem 129 

377 PRINT" {SHIFT-SPACE} {RVSTD{ OFF} DROP AN ITEM.": 
PRINT" {RVS}H{OFF} HIDE AN ITEM OR SUSPECT." 

:rem 224 
379 PRINT" {RVS}N{OFF} NO ACTION. ": PRINT" {RVS}P 

{OFF} PILFER FROM ANOTHER PLAYER." :rem 240 
381 PRINT" {RVS}S{OFF} SEARCH THE ROOM FOR HIDDEN 

{SPACE} ITEMS.": PRINT" {RVS}T{OFF} TAKE AN ITEM 

: rem 143 
384 PRINT" {2 DOWNjENTER LETTER FOR ACTION DESIRED 1 

{3 DOWN}" srem 89 

387 GETA$:IFA$<"A"ORA$>"T"THEN387 : rem 131 

390 PRINT" {CLR} " : A=ASC (A$ ) :ONA-64GOTO700 , 375 , 375 , 8 

00 :rem 30 

393 IFA$="H"THEN970 :rem 43 

396 IFA$<"N"THEN375 :rem 50 

400 ONA-77GOTO450,375,880,375,375,930,820 :rem 154 
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450 PRINT"{2 DOWNjPRESS {RVSHBLK} RETURN {0FF}g4l . 

TO END YOUR TURN I" : rem 119 ' { 

453 GETA$:IFA$<>CHR$(13)THEN453 :rem 10 

456 I=0:PRINT"{BLK}{CLR}{4 DOWN} PLAYER #"Q" ======= 

==== END TURN":GOSUB1710 :rem 142 ) ,' 

459 Q=Q+1:IFQ>P%(49)THENQ=1 : rem 86 ! — I 

462 IFP%(Q+35)=0THEN459 :rem 19 

465 GOTO200 :rem 106 

700 PRINT "{ CLR}{ DOWN J {BLK} (3 SPACES}***** MAKE AN ]{ 

{SPACE} ACCUSATION ***** {DOWN} g4§" :I=1 :rem 112 
703 FORJ=lTO10:PRINTJ"{LEFTj:"TAB(5)"THE ";S$(J) M . 

":NEXT :rem 163 

706 PRINT" {3 DOWNjENTER NUMBER OF MURDER VICTIM "; 

: INPUT J :rem 231 

709 IFJ<>P%(35)THENI=0 :rem 6 

712 GOSUB1900 :rem 228 

715 FORJ=1TO10:PRINTJ" {LEFT} :"TAB(5) "THE ";S$(J)". 

":NEXT :rem 166 

718 PRINT" {3 DOWNjENTER NUMBER OF MURDERER ";:INPU 

TJ ~ :rem 53 

721 IFJ<>P%(32)THENI=0 :rem 253 

724 GOSUB1900 :rem 231 

727 F0RJ=1T012:PRINTJ" {LEFT }:"TAB(5) "THE "S$(J+10) 

".":NEXT :rem 252 

730 PRINT" {3 DOWNjENTER NUMBER OF MURDER WEAPON "; 

:INPUTJ ~ ~ :rem 226 

733 IFJ<>P%(33)THENI=0 :rem 1 

736 GOSUB1900 :rem 234 

739 F0RJ=1T014:PRINTJ"{LEFT}:"TAB(5)"THE "R$(J)"." 

:NEXT :rem 116 

742 PRINT" {3 DOWNjENTER NUMBER OF MURDER ROOM ";:I 

NPUTJ "" :rem 88 

745 IFJ<>ABS(P%(34))THENI=0 : rem 44 

746 PRINT"{CLR}{5 DOWN} SUMMONING THE POLICE TO MAK 
E AN" : PRINT "ARREST " : rem 244 

748 POKES+14 , 5 : POKES+18 , 16 : POKES+3 , 1 : POKES+24 , 143 : 

POKES+6,240:POKES+4,65:A=5389 :rem 163 

751 FORJ=1TO200:R=A+PEEK(S+27)*3.5:POKES,RAND255:P 

OKES+l,INT(R/256) :NEXT :rem 131 

754 FORJ=0TO24 :POKES+ J, 0:NEXT: POKES+24, 15 : rem 44 
757 FORJ=1TO2500:NEXT : rem 37 

760 IFI=0THEN772 :rem 177 

763 1=3: PRINT "YOUR SOLUTION IS CORRECT I " :GOSUB17 10 

:rem 2 i \ 
769 PRINT" {2 DOVTNjPLAYER #"Q"HAS CRACKED THE CASE I i — > 

":GOT0787 : rem 158 

772 1=2 : PRINT "NO 1. . .THAT WAS A FALSE ARREST 1" :GOSU 

B1710 ~ :rem 232 

775 GOSUB1800:P%(35+Q)=0:P%(50)=P%(50)+1:PRINT"YOU 

'RE OUT OF THE GAME!" : rem 85 
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r-*> 778 IFP%(50)<P%(49)THEN450 : rem 151 

( \ 781 RESTORE:GOSUB1713:FORJ=1TO500:NEXT:GOSUB1713 

:rem 90 

-^^ 784 PRINT" {DOWN} ALL PLAYERS HAVE GIVEN INCORRECT": 

if PRINT "SOLUTIONS TO THE CRIME U" : rem 85 

'— 785 PRINT" {DOWN} NOBODY WINS !" :rem 51 

787 PRINT"HERE IS THE CORRECT SOLUTION: ": PRINT "THE 

r-> "S$(P%(32)) :rem 192 

f \ 789 PRINT"KILLED THE "S$ (P% ( 35 ) ) :PRINT"IN THE "R$( 

ABS(P%(34)))"," :rem 19 

791 PRINT"USING THE "S$ ( P% ( 33 )+10) " . { 2 DOWN}":END 

:rem 254 
800 PRINT" {2 DOWN}{BLK}{3 SPACES}*** DROP AN ITEM 

{SPACE}***E4l":GOSUB1800 :rem 36 

803 IFI=0THENPRINT"{ DOWN} YOU WEREN'T CARRYING ANYT 

HING l":GOTO450 : rem 88 

806 PRINT" {DOWNjYOU DROP " ; :GOSUB1780 :PRINT" . " :GOT 

0450 : rem 60 

820 PRINT"{2 D0WN}{BLK}{3 SPACES}*** TAKE A N ITEM 

{SPACE}***g43":J=l:PRINT"{DOWN}THESE ITEMS ARE 

AVAILABLE:" : rem 175 

823 F0RI=11T031:IFP%(I)<>RTHEN829 :rem 233 

826 PRINTJ": " ? :GOSUB1780:PRINT" . " :POKE900+J, I : J=J 

+1 :rem 70 

829 NEXT:IFJ=1THENPRINT"N0 ITEMS ." :GOTO450 : rem 60 

832 PRINT" {DOWN }ENTER NUMBER TO TAKE AN ITEM, OR": 

PRINT"ENTER ZERO TO TAKE NOTHING." : rem 111 

835 INPUT"WHAT ITEM DO YOU WANT" ;A:IFA<0ORA>=JTHEN 

835 :rem 137 

838 IFA=0THENPRINT"{DOWN}NO ITEM TAKEN. ":GOTO450 

: rem 234 

841 GOSUB1800:IFIO0THENPRINT"YOU DROP ";:GOSUB178 

0: PRINT"." :rem 82 

844 I=PEEK(900+A):P%(I)=100+Q:P%(Q+41)=I :rem 155 

845 PRINT"YOU TAKE " ; :GOSUB1780 :PRINT" . " :GOTO450 

: rem 30 

f— | 880 PRINT" {2 D0WN}{BLK}{3 SPACES}*** PILFER FROM A 

' . NOTHER ***g4§":J=0 : rem 46 

881 PRINT " { DOWN } THESE PLAYERS ARE ALSO IN THE ROOM 

..." ~ :rem 226 

883 F0RI=1T06 :IFP% ( 35+1 )=RANDI < >QTHENPRINT" 

{3 SPACES} PLAYER #"I " . " : J=J+1 :rem 141 

886 NEXT:IFJ=0THENPRINT"NO OTHER PLAYERS ARE IN TH 

E ROOMI":GOTO450 : rem 222 

889 PRINT" {DOWN} WHICH PLAYER WILL YOU STEAL FROM ? 

:rem 108 

890 PRINT"ENTER NUMBER, OR PRESS ZERO." :rem 1 

892 INPUT'VPILFER FROM PLAYER #" ; A:IFA<0ORA>P% (49 )T 
HEN889 -rem 250 

893 IFA=0THENPRINT"NO THEFT ." :GOTO450 :rem 179 
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895 IFA=QTHENPRINT"YOU CAN'T STEAL FROM YOURSELF I" \ j, 

•GOT0892 :rem 43 

898 IFP%(35+A)oRTHENPRINT "PLAYER #"A"IS NOT HERE 

{SPACE} l":GOT0889 *" : rem 129 

901 GOSUB1800:IFIO0THENPRINT"YOU DROP ";:G0SUB178 \ j 

0: PRINT"." :rem 79 ^ 

904 I=P%(A+41) :IFI=0THENP RI NT "PLAYER #"A"CARRIED N 

O ITEM1":GOTO450 : rem 33 

907 P%(Q+41)=I:P%(A+41)=0:P%(I)=100+Q : rem 158 

908 PRINT"YOU TAKE " ; :GOSUB1780 :PRINT" . " :GOTO450 

: rem 30 
930 PRINT" {2 DOWN}{BLK}{3 SPACES}*** SEARCH THE RO 
OM ***i4§" :J=0: PRINT "{DOWN} YOU FIND THE FOLLOW 
ING:" :rem 125 

933 FORI=lT031:IFP%(I)o-RTHEN942 : rem 227 

936 IFRND(1)>.5THEN942 : rem 6 

939 J=J+1:PRINTTAB(4) ; :GOSUB1780 :PRINT" . " :P% ( I )=R 

:rem 203 

942 NEXT:IFP%(34)o-RORRND(l)>.5THEN948 : rem 73 

945 J=1:PRINT"{4 SPACES }THE BODY OF THE "S$(P%(35) 

)".":P%(34)=R :rem 200 

948 IFJ=0THENPRINT"{2 SPACES} NOTHING l" 

:rem 177 
951 GOTO450 : rem 113 

970 PRINT"{2 DOWN}{BLK}{3 SPACES}*** HIDE ITEM OR 
{SPACE} SUSPECT ***B43":J=1 :rem 57 

971 PRINT " { DOWN }THESE CAN BE HIDDEN:" : rem 187 
973 F0RI=1T031:IFP%(I)<>RTHEN979 : rem 196 
976 PRINTJ": " ; :GOSUB1780 :PRINT" . " :POKE900+J,I : J=J 

+1 :rem 76 

979 NEXT:I=P%(Q+41):IFI=0THEN985 :rem 163 

982 PRINTJ": "; :GOSUB1780 : PRINT" (YOU CARRY IT).": 

POKE900+J,Q+41:J=J+1 :rem 77 

985 IFP%(34)=RTHENPRINTJ": THE BODY OF THE "S$(P%( 

35))".":POKE900+J,34:J=J+1 :rem 211 

988 IFJ=1THENPRINT"N0THING HERE CAN BE HIDDEN i":GO 

TO450 :rem 221 

991 PRINT" {DOWN} ENTER NUMBER OF ITEM TO HIDE, OR": 

PRINT"ENTER ZERO TO HIDE NOTHING." : rem 101 
994 INPUT"WHAT WILL YOU HIDE";A:IFA<0ORA>=JTHEN994 

:rem 235 
997 IFA=0THENPRINT "NOTHING HIDDEN. " :GOTO450: rem 99 
1000 I=PEEK(900+A) :IFI>34THEN1009 : rem 114 

1003 P%(I)=-R:IFI=34THENPRINT"Y0U HIDE THE BODY.": 
GOTO450 :rem 37 

1006 PRINT"YOU HIDE "; :GOSUB1780:PRINT". ":GOTO450 

:rem 57 

1009 I=P%(Q+41): PRINT "YOU HIDE THE OBJECT YOU CARR 

Y....":GOSUB1780: PRINT"." :rem 42 

1012 P%(Q+41)=0:P%(I)=-R:GOTO450 :rem 233 

1700 GETA$:IFA$=""THEN1700 :rem 179 
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1703 GETB$:IFB$=""THEN1703 :rem 187 

1706 A$=A$+B$ : RETURN : rem 128 

1710 J=1:GOSUB1730 :rem 6 

1713 READW, I , J : POKES+2 , I :P0KES+3 , J : READI , J :P0KES+5 

,I:P0KES+6,J :rem 129 

1716 READZ:IFZ<0THENRETURN : rem 227 

1719 POKES+1 , INT ( Z/256 ) : POKES , ZAND255 : READZ : POKES+ 

4,W :rem 61 

1722 FORJ=1TOZ*100:NEXT:POKES+4,0:GOTO1716 :rem 85 
1730 P=DA(I) :IFJ=1THEN1736 : rem 248 

1733 F0RI=1T0J-1:P=PEEK(P)+PEEK(P+1)*256:NEXT 

:rem 209 
1736 P=P-l:POKE66,INT(P/256) :POKE65,PAND255 : RETURN 

:rem 62 
1760 A=0:I=P%(41+Q):IFK23ORI>31THENRETURN : rem 49 
1763 IFI=23THENA=-1 : RETURN :rem 112 

1766 1=1-17 :IFI=D%(Z,1)0RI=D%(Z, 2 )THENA=1 : rem 111 

1769 RETURN :rem 183 

1770 IFD%(Z,0)=0THEND%(Z,0)=-1: RETURN : rem 143 
1773 D%(Z,0)=0: RETURN :rem 201 
1780 IFI=0THENPRINT"NO ITEM" ;: RETURN : rem 54 
1783 IFK23THENPRINT"THE "S$ ( I ) ; :RETURN :rem 147 
1786 IFI=23THENPRINT"THE SKELETON KEY";: RETURN 

:rem 212 
1789 PRINT"THE "R$(I-17) H KEY";:RETURN : rem 50 
1800 I=P%(Q+41) :IFI=0THENRETURN : rem 132 

1803 R=P%(Q+35) :P%(I)=R:P%(Q+41)=0:RETURN :rem69 
1900 PRINT" {CLR} {DOWN} {BLK} {3 SPACES}***** MAKE AN 
ACCUSATION *****{DOWN}i41":RETURN :rem 204 
1910 FORI=1TO2200:NEXT:GOTO330 : rem 82 

2000 DATA17 , , ,0 , 240 , 14435 , 1 , 12860 , 1 , 14435 ,7,0,4 

:rem 122 
2005 DATA12860 , 1 , 11457 , 1 , 10814 , 1 , 9634 , 1 , 9094 , 6 , 963 

4,8,0,8,-1 :rem 196 

2020 DATA17, 0,0, 0,240, 7217, 1,6430, 1,7217, 8, 0,7 

:rem 236 
2025 DATA5407,6,5728,6,4547,6,4817,24,-1 :rem 247 
3000 DATA "COOK" , "BUTLER" , "GARDENER" , "CHAUFFER" , "DU 

KE " , "DUCHESS " , "NANNY" : rem 131 

3005 DATA "OPERA STAR", "AMBASSADOR", "PRIME MINISTER 

"/'CARVING KNIFE ",' n 'ROPE" " : rem 9 
3010 DATA "BOX OF WEED KILLER" , "ANTIQUE MACE", "DUEL 

LING PISTOL", "FENCING FOIL" :rem 216 

3015 DATA "ICE PICK" , "PLASTIC BAG", "CHAIN SAW","HED 

GE TRIMMERS", "POLO MALLET" :rem 208 

3020 DATA "GARDEN SPADE ", "ENTRY FOYER" , "CORRIDOR" , " 

HALL", "PANTRY", "DINING ROOM" " : rem 97 
3025 DATA "KITCHEN" , "STUDY" , "BEDROOM" , "BATHROOM" , "C 



LOSET^, "GREENHOUSE", "GARDEN' 



:rem 187 
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3030 DATA "POOL", "GARAGE", 2, 13, 2, 14, 3, 7, 3, 8, 3, 11, 7, 

9,8,9,8,10,11,12,12,13,13,14 : rem 163 j \ 

3035 DATA "NORTH " , "EAST " , "SOUTH " , "WEST " : rem 7 
4000 DATA33, 0,0, 88, 89, 1804, 6, 2025, 3, 2145, 6, 2703, 3 

:rem 149 I j 
4005 DATA2408, 1,2551, 1,2408, 1,2551, 1,2408, 1,2551,1 ! — I 

,2408,1,2551,1,2703,8,-1 : rem 81 

5000 DATA5,3,0,2 : rem 45 

5005 DATA4, 1,101, 100 :rem 240 j 

5010 DATA104, 103, 102,1 : rem 81 

5015 DATA0,6,2,0 :rem 49 

5020 DATA6, 0,1,0 : rem 44 

5025 DATA0,0,5,4 :rem 51 

5030 DATA102, 105,0,0 : rem 239 

5035 DATA0,107,106,103 :rem 94 

5040 DATA106,0,0,105 : rem 244 

5045 DATA0,0,0,107 :rem 148 

5050 DATA0, 0,104, 108 : rem 246 

5055 DATA0, 108, 109,0 : rem 

5060 DATA109, 100,0, 110 : rem 86 

5065 DATA101,110,0,0 :rem 242 

6000 DATA65 ,255,0,9,0,1 804 , 6 , 1804 ,4.4, 1804 ,1.5,180 

4,6,2145,4.5,2025,1.5 :rem 202 

6005 DATA2025 ,4.5, 1804 , 1 . 5 , 1804 , 4 . 5 , 1804 , 1 . 5 , 1 804 , 

12,-1 :rem 177 

7000 DATA33 , , , 88 , 89 , 2408 , 4 , 32 15 , 12 , 3608 , 1 . 33 , 240 

8,1.33,3608,1.33 :rem 223 

7005 DATA4050, 4, 4050, 4, 4050, 4, 4050, 1.33, 4291, 1.33, 

3215,1.33 :rem 116 

7010 DATA4050,6,3608,2,3215,8,-1 : rem 77 
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Screen-80 

80 Columns for the 64 

Gregg Peele and Kevin Martin 

Did you ever wish for an 80-column screen? 
"Screen-80" transforms your 64 into an 80' 
column machine without affecting the normal 
screen-editing keys. We've also included "Custom- 
80," which allows you to create your own 80- 
column character set with a joystick. 



"Screen-80" offers a full 80-column screen and gives you the 
ability to use your Commodore 64 to write, edit, and even run 
BASIC programs (including some commercial software), all 
with an 80-column display. You can even use all the cursor 
controls of the normal screen editor. It runs concurrently with 
the normal system, allowing a quick switch between 40- and 
80-column modes. 

Best of all, little memory is used by Screen-80. The pro- 
gram consists of approximately 3K of machine language which 
goes into RAM "underneath" ROM. Another 43 bytes are 
placed in a little-used area of RAM (locations 710-753). Since 
the bulk of Screen-80 uses the same memory locations as the 
operating system, and the locations of the 43 bytes used from 
RAM are normally unused anyway, Screen-80 works without 
any apparent loss of programming space. 



Enter and Sign In 

Like many machine language programs in COMPUTE! books, 
Screen-80 is listed in MLX format. MLX makes it much sim- 
pler to type in machine language programs, and virtually in- 

I , sures a working copy the first time. Before you begin entering 

' 1 Screen-80, then, you must first type in the MLX program 

found in Appendix D. You'll want to have a copy of MLX, 
__ since it's used to enter machine language programs in COM- 

M PUTE! books, COMPUTE! magazine, and COMPUTED Gazette. 
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MLX even has a built-in numeric keypad to ease the burden of , i 

typing all those numbers. i — I 

If you're using tape to store programs, you must make 

one slight change to MLX before you save it. This change is | , 

only for MLX, and is only necessary when you type in Screen-80. I [ 

Change line 763 of MLX to read: 

POKE780,1:POKE781,DV:POKE782,0:SYS65466 

The only change is that the POKE 782,1 in the original listing 
has been altered to a POKE 782,0. Save this version of MLX 
for entering Screen-80. When you've typed in, saved, and 
tested Screen-80, you can change the POKE782 back to its 
original form so that you can use MLX to enter other machine 
language programs from this book. Remember, this change is 
only for tape users. 

After you've loaded and run MLX, you'll be asked for the 
starting and ending addresses of Screen-80. Those addresses are: 

Starting address: 49152 
Ending address: 52811 

As soon as you've provided those addresses, you can be- 
gin typing in Program 1. Just follow the directions in Appen- 
dix D, and you shouldn't have any problems. You can even 
enter the program in several sessions if you want. Once 
you've completed the typing and saved the program to tape or 
disk, turn your computer off and then on again. 

Now load the program from disk or tape using the normal 
format for loading BASIC programs: 

LOAD "filename", ,8 (for disk) 
LOAD "filename" (for tape) 

Notice that you can load the program without the ,1 that gen- 
erally accompanies ML programs. If the program loaded cor- ( I 
rectly, you can list it. You should see one line, line 0, with a 
SYS command (SYS 2061). Simply type RUN and you'll have 
Screen-80. To disable the program and return to normal 40- 
column mode, press RUN/STOP-RESTORE; typing SYS 710 
and pressing RETURN will reenable Screen-80. 

You can make a backup copy of the program by simply 
saving it as you would any BASIC program: 

SAVE "filename" ',8 (for disk) 
SAVE "filename" (for tape) 

To begin programming in 80 columns, just type NEW. 
42 U 






U 






H 
H 



n 



n 



i i 



i i 



n 
n 



Recreations and Applications 2 



!~~l Screen-80 is still in memory, but now the bothersome line 

' you saw earlier has been erased. 



r— [ Using 80 Columns 

Once you enter 80-column mode, the first thing you're likely 
to notice is the smaller size characters. Since increasing the 
size of the screen is impossible, adding 40 more columns to 
the 64 makes it necessary to halve the size of each character. 
Some televisions may not produce a clear enough picture to 
make these smaller characters readable, so you may find it 
difficult to read text in 80 columns. We recommend using a 
video monitor with the color turned off. You may want to 
change the character set to suit your personal taste or needs. 
"Custom-80" (discussed later in the article) is designed to let 
you do just that. 

Screen-80 provides a different cursor than does the nor- 
mal 40-column mode. Rather than a blinking block, it uses an 
underline character; like the normal cursor, it can move any- 
where on the screen. In fact, you can use all the cursor control 
keys, just as you would normally, to insert or delete, home the 
cursor, clear the screen, or create BASIC program lines. 

Both uppercase/graphics and lower /uppercase modes are 
supported in Screen-80, but you cannot toggle between these 
modes with the SHIFT-Commodore key combination. Instead, 
you can put the screen editor in lower/uppercase mode by 
pressing the CTRL and N keys simultaneously, or by printing 
CHR$(14). (You can do this either through a program, or in 
direct mode. Simply type PRINT CHR$(14) in direct mode and 
the display changes to lower/uppercase.) To return to 
uppercase/graphics mode, print CHR$(142) to the screen, 
again either through a program or in direct mode. These 
methods affect only characters printed after these commands. 
Thus, you may have both sets (for example, graphics and 
p-i lowercase) on the screen at the same time for increased 

programming flexibility. 

You can change the color of the background, text, or bor- 
der by simply POKEing the appropriate color number into 
location 53281 (for the background), location 646 (for text), or 
location 53280 (for the border). Changing text color changes 
the color of all text on the screen. If you want to change the 
background or text color during program mode, print a 
CHR$(13) after POKEing the appropriate location. Since color 
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memory is fixed on the 64, it's impossible to have true 80- 
column color. Therefore, Screen-80 does not recognize color 
codes in PRINT statements as being any different from other 
graphics characters. All printing to the screen uses the color 
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specified in location 646. 1 I 

Graphics and Sound Routines , , 

Screen-80 can be used with sprites, high-resolution graphics, I I 

and sound — just like the normal Commodore 64 screen. Since 
this program actually uses a hi-res screen, you can also use it 
for other graphics displays. You can even have text and hi-res 
graphics on the screen at the same time. (Check your Com- 
modore 64 Programmer's Reference Guide for more detailed 
information on how to plot points on the hi-res screen.) 

To plot points (or do anything else) to the hi-res screen, 
it's important to know how to POKE and PEEK to the screen. 
The hi-res screen for Screen-80 is located at 57344 ($E000). 
Since this screen memory shares addresses with ROM, you 
may POKE graphics safely to the screen, but attempting to 
PEEK from the screen will give you values from the ROMs. 
To get the equivalent of PEEKing these screen locations, type 
in and run the following routine. Make sure Screen-80 is al- 
ready in memory. 

10 FORT= 49152TO49175:READE:POKET,E:NEXT:POKE785,0 

:POKE786,192 
20 DATA 32,247,183,120,162,53,134,1,160,0 
30 DATA 177,20,162,55,134,1,88,168,169,0 
40 DATA 32,145,179,96 

Instead of using the normal PRINT PEEK (location), use: 

PRINT USR (location) 

The value returned is the content of the specified screen loca- Lj 
tion. Technical note: This routine is completely relocatable. Sim- 
ply change the range of the FOR-NEXT loop and the values , i 
POKEd into addresses 785 and 786 in line 10 to match the LJ 
routine's new location. Notice that the values POKEd into 785 
and 786 are in low byte /high byte format. , i 
Using sprites in Screen-80 requires that all sprite data be — I 
kept within the same 16K block as the hi-res screen. Locations 
49152 ($C000) to 53247 ($CFFF) are perfect places to put ( i 
sprite data. The sprite pointers for Screen-80 are located at ' — ' 
53248+1016 (54264) to 53248+1023 (54271). To cause sprite 
to get its data from 49152 ($C000), put a zero into location 
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J— j 53248+1016 (54264). Since POKEs to this area of memory are 

' normally intercepted by the I/O chip, you must disable inter- 

rupts and I/O to put a value into these locations. The follow- 

ning lines will put a sprite onto the 80-column screen. Type it 
in ar»H wm if ¥r\ caa fVio of"f"or>f 



in and run it to see the effect. 

10 V=53248 

20 POKE V, 100: POKE V+1,100 

30 POKE V+39,2 

40 POKE 56334, PEEK(56334)AND254 

50 POKE 1,PEEK(1)AND251 

60 POKE 53248+1016,0 

70 POKE l,PEEK(l)OR4 

80 POKE 56334, PEEK( 56334 )ORl 

90 POKE V+21,1 

Creating sound from within Screen-80 is done exactly the 
same way as from the normal screen. In fact, since you POKE 
the information to the SID chip (in the I/O area) to create 
sound, you don't have to disable interrupts or do any bank 
switching, as was necessary for hi-res graphics or sprites. The 
normal POKEs will do. 

Using Other Programs with Screen-80 

This program is designed to intercept any calls to the normal 
Kernal PRINT routine ($FFD2). Software which bypasses this 
routine or POKEs directly to the screen will not work correctly 
with Screen-80. An example of a program which bypasses the 
PRINT vector is the DOS wedge program (on the TEST /DEMO 
disk which comes with Commodore's 1541 disk drives). Fortu- 
nately, this problem can easily be fixed by changing all 
PRINTs to pass through the standard vector. The routine be- 
low, when used in place of the normal DOS boot program 
|— "| ("C-64 Wedge"), changes these references. 

10 IF A=0 THEN A=l: LOAD "DOS 5.1 ",8,1 

20 FOR 1=1 TO 7:READ A:POKEA, 210:POKE A+1,255:NEXT 

PI 30 DATA 52644,52650,52712,52726,52752,52765,53075 

11 40 SYS 52224 

With these changes, the DOS support program will work with 

PI Screen-80. 
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Programs which depend on sprites should be avoided, as 
should programs which move screen memory or otherwise 
change the normal configuration of the 64. 

SpeedScript, COMPUTERS popular word processing pro- 
gram, does not use the PRINT vector at $FFD2 to update the 
screen, so it's incompatible with Screen-80. Sorry. 

Custom-80: Creating Your Own Character Set I I 

Program 2, Custom-80, allows you to create your own charac- 
ter set for use with Screen-80. It's easy to use and requires a 
joystick plugged into port 2. 

Custom-80 "borrows" the character set from Screen-80 
and then moves it to a safe location in memory for editing. 
After editing, you can return the custom characters to the 
Screen-80 program, or save your new character set to disk or 
tape. Like Screen-80, it's in MLX format. After you've loaded 
and run the MLX program, enter these two numbers for start- 
ing and ending addresses: 

Starting address: 49152 
Ending address: 51245 

Then begin typing in Program 2. Once you're finished, save a 
copy to tape or disk, turn your computer off, then on again. 
To load Custom-80, type: 

LOAD"CUSTOM-80",8,1 (for disk) 
LOAD"CUSTOM-80",1,1 (for tape) 

(This assumes you used CUSTOM-80 for the filename. Note 
that Custom-80 requires the ,1 notation, unlike Screen-80.) 

After loading Custom-80 into memory, type NEW to reset 
the BASIC pointers. Next, load Screen-80 into memory and 
type SYS 49152. This puts you in Custom-80 and, at the same , , 
time, accesses the character set included with Screen-80. I I 

The Screen-80 character set is displayed in the lower half 
of the screen, where the character being edited is framed by a , - , 

yellow cursor. In the upper-left corner of the screen, the j [ 

character is enlarged for editing; brief instructions are provided 

to the right. , , 

Customizing Characters 

You can choose which character you want to edit by moving 

the yellow cursor around the bottom display using either the ] | 

joystick or the cursor keys. The cursor keys are faster. The 
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flashing blue square in the upper-left display indicates the cur- 
rent pixel in the character you are editing. To set the pixel, 
press the fire button on the joystick. If it was blank, it be- 
comes filled. Hitting the fire button again blanks the pixel. 

Press SHIFT and CLR/HOME to clear all the pixels in the 
character you're editing. (This will not affect the characters 
previously edited.) To home the cursor to the first character, 
press CLR/HOME without pressing SHIFT. 

You can copy a character from one position to another, by 
pressing the f 1 key to store the current character into the 
buffer. Move the yellow cursor to the new position of the 
character and press i7 to retrieve it from the buffer. 

Pressing the S key saves the character set to tape or disk 
as a short program file. It can be loaded back into memory by 
hitting the the L key. When loading or saving, you'll first be 
asked for the name of the file, then asked to press T for tape 
or D for disk. If an error occurs during a disk operation, the 
program will display the message. 

If you wish to make the new character set a permanent 
part of Screen-80, press X. This puts the redefined character 
set back into Screen-80 and exits to BASIC. You can then save 
the new version of Screen-80 to disk with the redefined 
characters already in the program by entering: 

SAVE" filename" fi (for disk) 
SAVE* 'filename", 1 (for tape) 

where filename is your new name for Screen-80. (You'll prob- 
ably want to scratch the old version of Screen-80 to prevent 
any possible confusion.) The next time you run Screen-80, 
you'll have your new character set in the program. 
._ If you wish to use various character sets with Screen-80, 

I I you should save the character sets to tape or disk with 

Custom-80's S option, then load the individual character sets 
fmm , by using Program 3 while in Screen-80. This program loads 

,' I the new character set into Screen-80 after it's activated. When 

the program prompts you for the name of the character set 
you want to load, enter the filename, comma, and the number 
of the device you want to load the character set from. Use 8 
for disk, 1 for tape. 

One important note: You cannot SYS to Custom-80 from 
[j Screen-80. You must press RUN/STOP-RESTORE to leave 

Screen-80 before typing SYS 49152 to run Custom-80. 

r-i 
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How It Works 

First, Custom-80 performs a block memory move of the 
character set data from Screen-80 to location 12288 ($3000 in 
hex). This is done to make it easier to display the character set 
at the bottom of the screen. 

Next, a raster interrupt splits the screen to show both the 
redefined character set and the normal character set. The 
instructions and the enlarged character are printed on the top 
half of the screen. The enlarged character is a 4 X 8 matrix of 
reverse SHIFT-Os. Before entering the main loop, all variables 
are initialized. 

The main loop has two major routines. The first one 
checks the joystick and keyboard. If a key is pressed, the 
appropriate flag is set. Pressing X sends the program to the 
routine that moves the character set back into Screen-80. The 
S key saves a character set, while the L key loads a character 
set. 

The second routine prints the enlarged character on the 
screen. If any flags were set, this routine handles them. It 
takes care of the save-to-buffer routine, the get-from-buffer 
routine, the clear-character routine, and the routine that han- 
dles the flashing of the blue cursor in the enlarged character. 

Program 1. Screen-80 

For easy entry of the next two machine language programs, be sure to use "The Machine 
Language Editor: MIX," Appendix D. 

49152 :011, 008 ,000 ,000, 158 ,050, 227 

49158 : 048 , 054 , 049 , 000 , 000 , 000 ,157 

49164 : 160, 044, 185, 065, 008, 153, 115 

49170 : 198, 002, 136, 192, 255, 208, 241 

49176 : 245, 160, 000, 169, 160, 133, 123 

49182 : 252, 132, 251, 169, 008, 133, 207 

49188 : 254, 169, 109, 133, 253, 177, 107 

49194 : 253, 145, 251, 200, 208, 249, 068 

49200 : 165 , 252 , 201 , 173 , 240 , 007 , 062 

49206 :230, 254, 230, 252, 076, 042, 114 } \ 

49212 :008, 076, 198, 002, 169, 054, 055 ' — ' 

49218 : 133, 001, 032, 000, 160, 169, 049 

49224 :055, 133, 001, 096, 072, 169, 086 

49230 :054, 133, 001, 104, 032, 028, 174 ! I 

49236 :162, 072, 169, 055, 133, 001, 164 

49242 : 104, 096, 072, 169, 054, 133,206 

49248 :001 , 104,032 , 148, 161 ,072 , 102 

49254 : 169, 055, 133, 001, 104, 096, 148 

49260 : 169 , 090 , 141 , 250 , 255 , 169 ,158 

49266 :169,141,251,255,173,002,0s! ( ( 
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I — I 49272 :221, 009, 003, 141, 002, 221, 205 

[ ) 49278 :169, 252, 045, 000, 221, 141, 186 

49284 : 000, 221, 169, 032, 013, 017, 072 

, , 49290 :208, 141, 017, 208, 169, 072, 185 

' 49296 :141, 024, 208, 169, 000, 141, 059 
49302 :244, 173, 169, 011, 141, 134, 254 
49308 :002 , 169 ,000 , 141 , 243 , 173 , 116 
i — ) 49314 :133, 212, 141, 236, 173, 169, 202 
! ( 49320 :015, 141, 033, 208, 169, 015, 237 
49326 : 141, 032, 208, 032, 244, 160, 223 
49332 :032, 003, 164, 169, 210, 141, 131 
49338 :038, 003, 169, 002, 141, 039, 066 
49344 : 003 , 169 , 226 , 141 , 036 , 003 , 002 
49350 : 169 , 002 , 141 , 037 , 003 , 032 , 070 
49356 :099 , 160 , 096 , 160 , 000 , 185 , 136 
49362 :116,160,141,227,173,032,035 
49368 :042 , 162 , 200 , 192 , 129 , 208 , 125 
49374 : 242 , 096 , 147 , 013 , 029 , 029 , 010 
49380 : 029 , 029 , 029 , 029 , 029 , 029 , 146 
49386 :029, 029, 029, 029, 029, 029, 152 
49392 :029, 029, 029, 029, 029, 029, 158 
49398 : 029, 029, 029, 029, 056, 048, 210 
49404 : 032, 067, 079, 076, 085, 077, 156 
49410 :078, 083, 032, 070, 079, 082, 170 
49416 :032 , 084 , 072 , 069 , 032 , 067 , 108 
49422 S079, 077, 077, 079, 068, 079, 217 
49428 : 082 , 069 , 032 , 054 , 052 , 017 , 070 
49434 :017, 157, 157, 157, 157, 157, 060 
49440 : 157, 157, 157, 157, 157, 157, 206 
49446 : 157, 157, 157, 157, 157, 157, 212 
49452 : 157, 157, 157, 157, 157, 066, 127 
49458 : 089 , 032 , 071 , 082 , 069 , 071 , 208 
49464 : 071 , 032 , 080 , 069 , 069 , 076 , 197 
49470 :069,017,017,157,157,157,124 
49476 : 157, 157, 157, 157, 157, 157, 242 
49482 : 157, 157, 157, 157, 157, 157, 248 
49488 :065, 078, 068, 032, 075, 069, 211 
49494 : 086 , 073 , 078 , 032 , 077 , 065 , 241 
49500 : 082 , 084 , 073 , 078 , 160 , 000 , 057 
49506 : 173, 033, 208, 041, 015, 170, 226 
49512 : 173, 134, 002, 010, 010, 010, 187 
49518 : 010, 141, 237, 173,138,013,054 
49524 : 237, 173, 032, 058, 169, 153, 170 

n 49530 : 000, 208, 153, 000, 209, 153, 077 
49536 : 000 , 210 , 200 , 008 , 032 , 074 , 140 
49542 : 169,040, 208, 216, 160, 231, 134 
49548 :032, 058, 169, 153, 000, 211, 251 
49554 :032, 074, 169, 136, 192, 255, 236 
49560 : 208 , 242 , 096 , 072 , 169 , 001 ,172 
49566 : 141 , 244 , 173 , 104 , 032 , 042 ,126 
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49572 : 162, 169, 000, 141 ,244, 173, 029 

49578 .-165,198,240,252,120,032,153 

49584 : 180, 229, 201, 131, 208, 016, 117 

49590 :162, 009, 120, 134, 198, 189, 226 , 

49596 :230, 236, 157, 118, 002, 202, 109 I 

49602 :208, 247, 240, 228, 201, 013, 051 

49608 : 208 , 209 , 160 , 007 , 032 , 058 , 106 

49614 :169, 177, 251, 077, 223, 173, 252 | i 

49620 :145, 251, 032, 074, 169, 160, 019 l_J 

49626 : 079, 132, 208, 032, 058, 169, 128 

49632 : 177 , 209 , 201 , 032 , 208 , 003 , 030 

49638 : 136, 208, 244, 200, 132, 200, 070 

49644 : 160, 000, 132, 211, 132, 212, 059 

49650 : 165 , 202 , 048 , 060 , 165 , 202 , 060 

49656 :133, 211, 197, 200, 144, 052, 161 

49662 : 176, 094, 165, 153, 208, 014, 040 

49668 :165, 009, 133, 202, 173, 222, 140 

49674 : 173, 133, 201, 133, 214,076, 172 

49680 : 190 , 161 , 032 ,074 , 169 , 076 , 206 

49686 : 102, 241, 160,007,032,058, 110 

49692 : 169, 177, 251, 077, 223, 173, 074 

49698 : 145, 251, 032, 074, 169, 076, 013 

49704 : 062 ,161,152, 072 , 138 , 072 , 185 

49710 : 165, 208, 240, 230, 032, 058, 211 

49716 : 169, 164, 211, 177,209,133,091 

49722 : 215, 032, 074, 169, 041, 063, 140 

49728 :006 , 215 , 036 , 215 , 016 ,002 , 042 

49734 : 009, 128, 144, 004, 166, 212, 221 

49740 : 208 , 004 , 112 , 002 , 009 , 064 , 219 

49746 : 032, 074, 169, 230, 211,032,062 

49752 : 132 , 230 , 196 , 200, 208 , 026 , 056 

49758 : 169,000, 133, 208, 169,013,018 

49764 : 166 , 153 , 224 , 003 , 240 , 006 , 124 

49770 : 166, 154, 224, 003, 240, 003, 128 

49776 :032, 042, 162, 169, 013, 032, 050 

49782 :074, 169, 133, 215, 104, 170, 215 

49788 :104, 168, 165, 215, 201, 222, 175 j I 

49794 :208, 002, 169, 255, 024, 096, 116 ' — ' 

49800 : 072 , 165 , 154 , 201 , 003 , 208 , 17 1 

49806 : 004 , 104 , 076 , 042 , 162 , 076 , 094 

49812 : 213 , 241 ,072 , 141 , 227 ,173 , 191 

498 18 : 152 , 072 , 138 , 072 , 169 , 000 , 245 

49824 : 141, 235, 173, 032, 070, 162, 205 

49830 :032, 068, 168, 032, 146, 168, 012 | j 

49836 :104, 170, 104, 168, 104, 096, 150 ' — ! 

49842 : 173, 227, 173, 032, 132, 230, 121 

49848 :208, 006, 169, 001, 141, 235, 176 ( , 

49854 :173, 096, 173, 227, 173, 201, 209 !_! 

49860 :032, 144, 003, 076, 097, 162, 198 

49866 :076, 194, 162, 201, 096, 176, 083 
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49872 :023, 201, 064, 176, 003 ,076, 239 
49878 : 174, 162 , 201 , 128 , 240 , 082 1 177 
49884 :056, 173, 227, 173, 233, 064, 122 
49890 : 141, 227, 173, 076, 174, 162, 155 
49896 : 201 , 127 , 144 , 009 , 240 , 044 , 229 
49902 : 201, 160, 144, 060, 076, 149, 004 
49908 : 162, 056, 173, 227, 173, 233, 244 
49914 :032, 141, 227, 173,076, 174,049 
49920 : 162 , 201 , 192 , 176 , 012 , 056 , 031 
49926 : 173, 227, 173, 233, 064, 141, 249 
49932 : 227, 173, 076, 174, 162, 024, 080 
49938 : 173, 227, 173, 105, 128, 141, 197 
49944 : 227 , 173 , 173 , 243 , 173 , 240 , 229 
49950 :004, 206, 243, 173,096, 173, 157 
49956 : 241 , 173 , 208 , 005 , 169 , 000 , 064 
49962 : 141, 242, 173, 096, 173, 243, 086 
49968 : 173 , 005 , 212 , 240 , 035 , 173 , 118 
49974 : 227 , 173 , 201 , 032 , 176 , 041 , 136 
49980 : 201, 013, 240, 110, 201, 020, 077 
49986 : 240, 004, 165, 212, 208, 013, 140 
49992 : 173, 243, 173, 208, 008, 169, 022 
49998 :001, 141, 235, 173, 076, 078, 014 
50004 : 163 , 076 , 028 , 163 , 173 , 241 , 160 
50010 : 173 , 208 , 005 , 169 , 000, 141 , 018 
50016 :242, 173, 076, 066, 163, 173, 221 
50022 : 227 , 173 , 201 , 141 , 240 , 066 , 126 
50028 : 201 , 148 , 208 , 012 , 165 , 212 , 030 
50034 : 208 , 008 , 169, 001 , 141 , 240, 113 
50040 : 173 , 076 , 066 , 163 , 056 , 173 , 059 
50046 : 227, 173, 233, 064, 141, 227, 167 
50052 : 173 , 076 , 028 , 163 , 173 , 243 , 220 
50058 : 173, 208, 017, 169, 000, 141, 078 
50064 : 243, 173, 165, 212, 208, 011, 132 
50070 : 169 , 000, 141 , 242 , 173 , 076 , 183 
50076 : 058 , 163 , 206 , 243 , 173 , 169 , 144 
50082 : 001 , 141 , 242 , 173 , 169 , 000 , 120 
50088 :141 , 235 , 173 , 076 , 186 , 163 , 118 
50094 : 169 , 001 , 141 ,235,173, 169 , 038 
50100 : 000, 141, 240, 173, 133, 212, 055 
50106 : 173, 227, 173, 201, 032, 176, 144 
501 1 2 : 102 , 201 , 008 , 208 , 005 , 160 , 108 
50118 : 128 , 140 , 145 , 002 , 201 , 009 , 055 
50124 : 208 , 005 , 160 , 000 , 140 , 145 , 094 
50130 : 002 , 201 , 013 , 208 , 005 , 072 , 199 
50136 :032, 053, 165, 104, 201, 014, 017 
50142 : 208 , 005 , 160 , 001 , 140 , 236 , 204 
50148 :173, 201, 017, 208, 008, 238, 049 
I I 50154 :222, 173,072,032, 206, 164,079 
50160 :104, 201, 018, 208, 008, 160, 171 
50166 : 001 , 140, 242 , 173 , 140 , 241 ,159 
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50172 :173, 201, 019,208, 017, 160,006 , . 

50178 :000,132,009,140,222,173,166 j j 

50184 : 072 , 032 , 206 , 164 , 169 , 240 , 123 

50190 : 141, 223, 173, 104, 201, 029, 117 

50196 :208, 007, 230, 009, 072, 032, 066 

50202 : 210, 164, 104, 201 ,020, 208, 165 

50208 :005, 072, 032, 092, 165, 104, 246 

50214 : 096 , 201 , 141 , 208, 005 , 072 , 249 

50220 : 032 , 053 , 165 , 104 , 201 , 142 , 229 

50226 : 208, 005, 160, 000, 140, 236, 031 

50232 : 173 , 201 , 145 , 208 , 008 , 206 , 229 

50238 : 222, 173, 072, 032, 206, 164, 163 

50244 : 104 , 201 , 146 , 208 , 008 , 160 ,127 

50250 : 000 , 140, 242 , 173 , 140 , 241 , 242 

50256 : 173 , 201 , 147 , 208 , 005 , 072 , 118 

50262 :032, 003, 164, 104, 201, 148, 226 

50268 :208, 005, 072, 032, 080, 166, 143 

50274 : 104, 201, 157, 208, 007, 198, 205 

50280 : 009, 072, 032, 210, 164, 104, 183 

50286 : 096, 032, 058, 169, 169,000, 122 

50292 : 133, 251, 169, 224, 133, 252, 254 

50298 : 169, 000, 141, 225, 173, 141, 203 

50304 : 226, 173, 141, 036, 164, 169, 013 

50310 : 224, 141, 037, 164, 169, 000, 101 

50316 : 170, 168, 138, 153, 255, 255, 255 

50322 : 136, 208, 249, 238, 037, 164, 154 

50328 :173, 037, 164, 201, 255, 208, 166 

50334 : 239, 160,064, 169,000, 153, 175 

50340 : 000, 255, 136, 016, 250, 169, 222 

50346 : 000 , 133 , 009 , 141 , 222 , 173 , 080 

50352 : 169, 240, 141, 223, 173, 173, 015 

50358 : 244, 173, 240, 006, 160, 007, 244 

50364 : 169, 240, 145 ,251, 162, 024, 155 

50370 : 024, 189 , 196 , 169 , 105 , 212 , 065 

50376 : 141, 107, 164, 189, 170, 169, 116 

50382 : 141, 106, 164, 169, 032, 160, 210 

50388 : 079 , 153 ,255,255, 136 , 192 , 002 

50394 : 255, 208, 248, 202, 224, 255, 074 

50400 : 208 , 224 , 032 , 210 , 164 , 032 , 070 

50406 :074, 169, 096, 169, 000, 141, 111 

50412 : 226 , 173 , 165 , 009 , 074 , 010 , 125 

50418 : 046 , 226 , 173 , 010 , 046 , 226 , 201 

50424 : 173 , 010 , 046 , 226 , 173 , 141 , 249 

50430 : 225, 173, 172, 222, 173, 185, 124 

50436 :118, 169, 133, 251, 024, 185, 116 

50442 : 144, 169, 109, 226, 173, 133, 196 

50448 :252 , 024, 173 , 225 , 173 , 101 , 196 

50454 : 251, 133, 251, 169, 000, 101, 159 

50460 : 252, 133, 252, 024, 165, 252, 082 

50466 : 105, 224, 133, 252, 165,009, 154 
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50472 :041, 001, 240, 008, 169, 015, 002 
50478 : 141 , 223 , 173 , 076 , 205 , 164 , 004 
50484 : 169 , 240 , 141 ,223,173, 096 , 070 
50490 : 169 , 255 , 133 , 202 , 165 , 009 , 223 
50496 : 133 , 211 , 048 , 014 , 201 , 080 , 239 
50502 : 144, 021, 169, 000, 133, 009, 034 
50508 : 238 , 222 , 173 , 076 , 241 , 164 , 166 
50514 : 230, 009 , 206 , 222 , 173 , 048 , 202 
50520 : 024 , 169 , 079 , 133 , 009 , 173 , 163 
50526 : 222, 173, 133, 214, 048, 013, 129 
50532 : 201, 025, 144, 012, 206, 222, 142 
50538 : 173,032, 135, 167,076,008, 185 
50544 : 165 , 238 , 222 , 173 , 169 , 001 , 056 
50550 : 141, 234, 173, 173, 244, 173, 232 
505 56 : 240 , 015 , 160 , 007 , 032 , 058 , 124 
50562 : 169, 177, 251,077, 223, 173, 176 
50568 : 145 , 251 , 032 , 074 , 169 , 174 , 213 
50574 : 222, 173, 189, 170, 169, 133, 174 
50580 : 209 , 024 , 189 , 196 , 169 ,105,016 
50586 : 212, 133, 210, 032, 168, 168, 053 
50592 :096, 238, 222, 173, 169, 000, 034 
50598 : 133 , 009, 141 , 243 , 173 , 141 , 238 
50604 : 242 , 173 , 141 , 241 , 173 , 032 ,150 
50610 : 210, 164, 173, 033, 208, 041, 239 
50616 : 015 , 205 , 246 , 173 , 240 , 003 , 042 
50622 :032, 244, 160, 173,033, 208,016 
50628 : 141 , 246 , 173 , 096 , 032 , 058 , 174 
50634 : 169 , 169 , 001 , 141 , 244, 173 , 075 
50640 : 165 , 009 , 208 , 003 , 076 , 066 , 223 
50646 : 166 , 160 , 007 , 177 , 251 , 077 , 028 
50652 : 223 , 173 , 145 , 251 , 056 , 165 , 209 
50658 : 251, 233, 008, 133, 253, 165, 245 
50664 : 252 , 233 ,000 , 133 , 254 , 165 , 245 
50670 : 009, 041, 001, 208, 025, 160, 170 
50676 :007, 177, 251, 041, 240, 074, 010 
50682 :074,074,074,141,228,173,246 
50688 .-177,253,041,240,013,228,184 
50694 : 173, 145, 253, 136,016, 233, 194 
50700 : 172, 222, 173, 200, 024, 185, 220 
50706 : 144, 169, 105, 224, 141, 238, 015 
50712 : 173 , 056 , 185 , 118 , 169 , 233 , 190 
50718 :001 , 141 , 230, 173 , 173 , 238 , 218 
50724 : 173, 233, 000, 141, 231, 173, 219 
50730 : 169, 008, 141, 229, 173, 160, 154 
50736 :004, 173, 230, 173, 141, 222, 223 
50742 : 165 , 173 , 231 , 173 , 141 , 223 , 136 
50748 : 165 , 056 , 169 , 080 , 229 , 009 , 000 
50754 :074, 105, 000, 170, 024, 008, 191 
50760 : 040 , 046 , 255 , 255 , 008 , 056 , 220 
50766 :173,222,165,233,008,141,252 
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50772 :222, 165, 173, 223, 165, 233, 241 

50778 :000, 141, 223, 165, 202, 208, 005 J 

50784 : 231, 136, 240, 004, 040, 076, 055 

50790 : 197, 165, 040, 206, 230, 173, 089 

50796 : 208, 003, 206, 231, 173, 206, 111 

50802 : 229, 173, 208, 185, 160, 007, 052 

50808 :177, 251, 077, 223, 173, 145, 142 

50814 :251, 174, 222, 173, 189, 170, 025 

50820 :169, 133, 253, 024, 189, 196, 072 1 

50826 :169, 105, 212, 133, 254, 056, 043 ( — 

50832 : 169 , 079 , 229 , 009 , 170 , 164 , 196 

50838 :009, 177, 253, 136, 145, 253, 099 

50844 : 200 , 200 , 202 , 224 , 255 , 208 , 165 

50850 : 244, 169, 032, 160, 079, 145, 223 

50856 :253, 198, 009, 032, 210, 164, 010 

50862 : 169, 000, 141, 234, 173, 032, 155 

50868 : 074 , 169 , 169 , 000 , 141 , 244 , 209 

50874 : 173, 096, 032, 058, 169, 172, 118 

50880 : 222 , 173 , 200 , 056 , 185 , 118 , 122 

50886 : 169, 233, 008, 133, 253, 185, 155 

50892 : 144, 169, 233, 000, 133, 254, 113 

50898 : 024, 165, 254, 105, 224, 133, 091 

50904 : 254 , 160 , 007 , 17 7 , 253 , 041 , 084 

50910 :015, 240, 003, 076, 116, 167, 071 

50916 .-136,016,244, 160, 007, 177, 200 

50922 : 251 , 077 , 223 , 173 , 141 , 245 , 064 

50928 :173, 173, 244, 173, 240, 008, 227 

50934 : 173, 245, 173, 145, 251, 076, 029 

50940 : 146 , 166 , 165 , 009 , 041 , 001 , 012 

50946 :240, 018, 024, 165, 251, 105, 037 

50952 :008, 141, 230, 173, 165, 252, 209 

50958 : 105, 000, 141, 231*173, 076, 228 

50964 : 180, 166, 165, 251, 141, 230, 129 

50970 : 173, 165, 252, 141, 231, 173, 137 

50976 : 169 , 008 , 141 , 229 , 173 , 160 , 144 

50982 : 004, 173 , 230, 173 , 141 , 210, 201 

50988 : 166, 173, 231, 173, 141, 211, 115 

50994 : 166, 056, 169, 080, 229, 009, 247 

51000 :074, 170, 024, 008, 040, 110, 226 

51006 : 255, 255, 008, 024, 173, 210, 219 

51012 : 166, 105, 008, 141, 210, 166, 096 j ( 

51018 :173, 211, 166, 105, 000, 141, 102 ' — ' 

51024 :21i, 166, 202, 208, 231, 136, 210 

51030 : 240, 004, 040, 076, 187, 166,031 , , 

51036 :040, 238, 230, 173, 208, 003, 216 j__] 

51042 : 238, 231, 173, 206, 229, 173, 068 

51048 : 208 , 187 , 024 , 165 , 251 , 105 , 020 

51054 :008, 133, 253, 165, 252, 105, 002 

51060 : 000 , 133 , 254, 165 , 009 , 041 , 206 

51066 : 001, 240, 031, 160, 007, 177, 226 
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51072 :251, 041, 015 ,010, 010, 010, 209 
51078 : 010, 141, 228, 173, 177, 253, 092 
51084 : 041 , 015 , 013 , 228 , 173 , 145 , 243 
51090 : 253, 177, 251, 041, 240, 145, 229 
51096 :251, 136, 016, 227, 160, 007, 181 
51102 : 177, 251, 077, 223, 173, 141, 176 
51108 .-245,173,173,244,173,240,132 
51114 : 005, 173, 245, 173, 145, 251, 138 
51120 : 032, 210, 164, 032, 058, 169, 073 
51126 : 174, 222, 173, 189, 170, 169, 255 
51132 :133, 253, 024, 189, 196, 169, 128 
51138 : 105, 212, 133, 254, 056, 169, 099 
51144 : 079, 229, 009, 170, 160, 078, 157 
51150 : 177, 253, 200, 145, 253, 136, 090 
51156 :136, 202, 224, 255, 208, 244, 201 
51162 : 169, 032, 164, 009, 145, 253, 222 
51168 :169, 000, 141, 234, 173, 032, 205 
51174 : 074, 169 , 173 , 243 , 173 , 201 , 239 
51180 : 080, 240, 003, 238, 243, 173, 189 
51186 .-096,032,058,169,169,224,222 
51192 :141, 158, 167, 024, 169, 224, 107 
51198 : 105, 001, 141, 155, 167, 160, 215 
51204 : 000 , 185 , 064 , 255 , 153 , 000 , 149 
51210 : 255, 200 ,208, 247, 238, 155, 033 
51216 : 167, 238, 158, 167, 173, 155, 050 
51222 : 167, 201, 255, 208, 234, 169, 232 
51228 :000, 160, 000, 153, 000, 254, 083 
51234 : 200, 208, 250, 160, 192, 153, 173 
51240 : 000, 255, 136, 192, 255, 208, 062 
51246 .-248,056,165,251,233,064,039 
51252 : 133, 251, 165, 252, 233, 001, 063 
51258 s 133, 252, 162, 001, 189, 170, 197 
51264 : 169, 141, 246, 167, 024, 189, 232 
51270 : 196, 169, 105, 212, 141, 247, 116 
51276 : 167 , 202 , 189 , 170 , 169 , 141 , 090 
51282 : 249, 167, 024, 189, 196, 169, 052 
51288 : 105, 212, 141, 250, 167, 162, 101 
51294 : 008, 160, 000, 185, 255, 255, 189 
51300 : 153 , 255 , 255 , 200 , 208 , 247 , 138 
51306 : 238, 247, 167, 238, 250, 167, 133 
! J 51312 :202, 208, 238, 162, 024, 189, 111 
'- 51318 :170, 169, 141, 029, 168, 024, 051 
51324 : 189 , 196 , 169 , 105 , 212 , 141 , 112 
, — , 51330 :030, 168, 169,032, 160,079,000 
j j 51336 :153, 255, 255, 136, 192, 255, 102 
51342 : 208, 248, 032, 074, 169, 169, 018 
51348 : 127, 141, 000, 220, 173, 001, 042 
I — j 51354 :220, 201, 251, 008, 169, 127, 106 
51360 :141, 000, 220, 040, 208, 009, 010 
51366 : 160, 000, 234, 202, 208, 252, 198 
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51372 :136, 208, 249, 096, 169, 000, 006 , , 

51378 :133, 254, 032, 058, 169, 173, 229 j [ 

51384 : 227, 173, 041, 001, 240, 008, 106 

51390 : 169,015, 141, 224, 173,076, 220 

51396 :095 , 168 , 169 , 240 , 141 , 224, 209 

51402 : 173, 173, 227, 173,074,010,008 

51408 :038, 254, 010, 038, 254, 010, 044 

51414 :038, 254, 133, 253, 173, 236,021 

51420 : 173 , 208 , 014 , 024 , 169 , 222 , 006 

51426 : 101, 253, 133, 253, 169, 169, 024 

51432 :101, 254, 076, 140, 168, 024, 227 

51438 : 169 , 222 , 101 ,253,133, 253 , 089 

51444 : 169, 171, 101, 254, 133, 254 ,046 

51450 :032,074,169,096,173,235,005 

51456 :173, 208, 016, 169, 000, 141, 195 

51462 : 234 , 173 , 032 , 168 , 168 ,032 , 045 

51468 :044, 169, 230, 009, 032, 210, 194 

51474 : 164, 096, 032, 125, 164, 032, 119 

51480 :058, 169, 160, 007, 174, 234, 058 

51486 : 173 , 240 , 005 , 169 , 000 , 076 , 181 

51492 : 191 , 168 , 177 , 253 , 045 , 224 , 070 

51498 : 173, 174, 224, 173, 224, 240, 226 

51504 : 208, 004, 074, 074, 074, 074, 044 

51510 : 141, 228, 173, 173, 223, 173, 141 

51516 :201, 015, 240, 010, 173, 228, 159 

51522 : 173, 010, 010, 010, 010, 141, 164 

51528 :228, 173, 169, 255, 174, 234, 025 

51534 : 173, 208, 005, 173, 223, 173, 009 

51540 : 073, 255, 049, 251, 013, 228, 185 

51546 : 173, 192, 007, 208, 008, 174, 084 

51552 : 244*173,240, 003, 077, 223, 032 

51558 : 173, 174, 234, 173, 208, 023, 063 

51564 : 174, 241, 173, 208, 005, 174, 059 

51570 : 242, 173, 240,013,077,223,058 

51576 :173, 072, 173, 227, 173, 009, 179 

51582 : 128, 141, 227, 173, 104, 145,020 

51588 :251, 136, 016, 148, 173, 243, 075 

51594 : 173, 005, 212, 240, 005, 169, 174 

51600 : 000 , 141 , 242 , 173 , 032 , 074 , 038 

51606 : 169, 096, 164, 009, 173, 227, 220 

51612 : 173, 032, 058, 169, 145, 209, 17.4 I | 

51618 :032, 074, 169, 096, 072, 120, 213 ' — ' 

51624 : 173, 014, 220, 041, 254, 141, 243 

51630 :014, 220, 169, 052, 133, 001, 251 ; , 

51636 :104, 096, 072, 169, 054, 133, 040 | [ 

51642 : 001 , 173 ,014, 220, 009, 001 , 092 

51648 :141, 014, 220, 088, 104, 096, 087 

51654 :072, 152,072, 138,072, 169,105 j j 

51660 :169, 072, 169, 109, 072, 008, 035 > — > 

51666 :032,074,169,120,076,071,240 
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51672 :254, 032, 058, 169,104,170,235 
51678 : 104, 168, 104, 064, 000, 064, 214 
51684 : 128, 192, 000, 064, 128, 192, 164 
51690 : 000, 064, 128, 192, 000, 064, 170 
51696 : 128, 192, 000, 064, 128, 192, 176 
51702 : 000, 064, 128, 192, 000, 064, 182 
51708 :000, 001, 002, 003, 005, 006, 013 
51714 :007, 008, 010, 011, 012, 013, 063 
51720 8015,016,017,018,020,021,115 
51726 : 022, 023, 025, 026, 027, 028, 165 
51732 :030, 031, 000, 080, 160, 240, 049 
51738 : 064, 144, 224, 048, 128, 208, 074 
51744 : 032, 112, 192, 016, 096, 176, 144 
51750 : 000, 080, 160, 240, 064, 144, 214 
51756 : 224 , 048 , 128 , 208 , 000 , 000 , 140 
51762 : 000 , 000 , 001 , 001 , 001 , 002 , 055 
51768 : 002 , 002 , 003 , 003 , 003 , 004 , 073 
51774 : 004 , 004 , 005 , 005 , 005 , 005 , 090 
51780 : 006, 006, 006, 007, 007, 007, 107 
51786 :068, 170, 170, 174, 138, 138, 164 
51792 : 106, 000, 196, 170, 168, 200, 152 
51798 : 168, 170, 196, 000, 206, 168, 226 
51804 : 168 , 174 , 168 , 168 , 206 , 000 , 208 
51810 : 228, 138, 136, 234, 138, 138,086 
51816 : 132 , 000 , 174 , 164 , 164 , 228 , 198 
51822 s 164, 164, 174,000, 234,042, 120 
51828 :042, 044, 042, 170, 074, 000, 232 
51834 : 138, 142, 142, 138, 138, 138, 190 
51840 : 234, 000, 206, 170, 170, 170, 054 
51846 : 170, 170, 174, 000, 196, 170, 246 
51852 :170,202,138,138,132,002,154 
51858 : 198, 168 , 168, 196 , 162 , 162 , 176 
51864 : 172, 000, 234, 074, 074, 074, 012 
51870 :074, 074, 078, 000, 170, 170, 212 
51876 4170,170,174,174,074,000,158 
51882 : 170, 170, 074, 068, 068, 164, 116 
51888 : 164, 000, 230, 036, 068, 068, 230 
51894 : 068, 132,230,000,070,162,076 
51900 : 130, 194, 130, 130, 230, 000, 234 
51906 :032, 114,036,047,036,034, 237 
51912 :032, 032, 004, 004, 004, 004, 024 
51918 :004, 000, 004, 000, 160, 170, 032 
51924 :014, 010, 014, 010, 000, 000, 004 
51930 : 074, 226, 132, 228, 036, 232, 122 
51936 .-074,000,066,162,164,064,242 
51942 : 160, 160, 096, 016, 040, 068, 002 
51948 :130, 130, 130, 068, 040, 000, 222 
51954 :000, 160,068, 238,068, 160, 168 
51960 : 000 , 000 , 000 , 000 , 000 , 014 , 006 
51966 : 000, 096, 032, 064, 001, 001, 192 
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51972 : 002, 006, 004, 008, 072, 000, 096 

51978 :068, 172, 164, 164, 164, 164, 138 | 

51984 :078, 000, 078, 162, 036, 066, 180 U - 1 

51990 : 130, 138, 228, 000, 174, 168, 092 

51996 : 238,034, 034, 042, 038, 000, 158 

52002 : 078 , 162 , 130, 196 , 164 , 168 , 164 

52008 :072, 000, 068, 170, 170, 070, 078 

52014 : 162, 164, 072, 000, 000, 000, 188 

52020 : 068 , 000 , 000 , 068 , 004 , 008 , 200 

52026 : 016, 032, 078, 128, 078, 032, 166 

52032 :016, 000, 132, 074, 034, 020, 084 

52038 :036, 064, 132, 000, 004, 004, 054 

52044 : 014, 254, 010, 004, 014 ,000, 116 

52050 : 032, 032, 032, 047, 032, 032, 033 

52056 :032 , 032 , 000 , 015 , 240 , 000 ,151 

52062 : 000, 000, 000, 000, 004 ,004, 102 

52068 : 004, 004, 004, 004, 244,004, 108 

52074 : 032, 032, 032, 044, 038, 034, 062 

52080 : 034 , 034 , 034 , 034 , 054 , 028 , 074 

52086 : 000, 000, 000, 000, 136, 136, 134 

52092 :132, 132, 130, 130, 129, 241, 250 

52098 :031, 024, 040, 040, 072, 072, 153 

52104 : 136, 136, 240, 016, 022, 031, 205 

52110 : 031, 022, 016, 016, 000, 009, 236 

52116 :015, 015, 015, 006, 240, 000, 183 

52122 : 064 , 064 , 064 , 065 , 067 , 066 , 032 

52128 :066, 066, 144, 144, 102, 105, 019 

52134 : 105, 102, 144, 144, 098, 098, 089 

52140 : 146, 146, 098, 098, 242, 002, 136 

52146 : 002, 066, 066, 239, 226, 066, 075 

52152 :066, 002, 066, 130, 066, 130, 132 

52158 : 066 , 130, 066 , 130, 015 , 007 , 092 

52164 : 023, 099, 163, 163, 161, 001, 038 

52170 : 012, 012, 012, 012, 012, 012, 018 

52176 :012, 012, 015, 000, 000, 000, 247 

52182 : 240, 240, 240, 240, 008, 008, 166 

52188 : 008 , 008 , 008 , 008 , 008 ,248,252 

52194 : 161, 081, 161, 081, 161, 081, 184 

52200 : 161, 081, 015, 014, 012, 012, 015 

5 2206 : 172 , 088 , 1 68 , 088 , 050 , 050 , 086 

52212 :050, 051, 050, 050, 050, 050, 033 

522 18 : 002 , 002 , 002 , 003 , 048 , 048 , 099 

52224 : 048 , 048 , 000 , 000 , 000 , 224 , 064 

52230 :032, 032, 047, 047, 002, 002, 168 , 

52236 :002, 063, 032, 032, 032, 032, 205 j l 

52242 :002, 002, 002, 254,034,034,090 

52248 :034 , 034 , 140 , 140 , 140 , 140 , 140 

52254 : 140, 140, 140, 140, 063, 063, 204 

52260 : 048 , 048 , 048 , 048 , 048 , 048 , 068 

52266 : 240 , 240 , 240, 000 , 000 , 015 , 009 
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52272 :015, 015, 016, 016, 016, 016, 142 
52278 :028, 028, 028, 252, 050, 050, 234 
52284 :050, 062, 000, 000, 000, 000, 172 
52290 : 204 , 204 , 204 , 204 , 003 , 003 ,120 
52296 :003, 003, 064, 160, 172 ,162, 124 
52302 : 142, 138, 110, 000, 128, 128, 212 
52308 :198, 168, 168, 168, 198, 000, 216 
52314 : 032, 032, 100, 170, 174, 168, 254 
I 52320 :102, 000, 032, 064, 068, 234, 084 
1 52326 :074, 070, 066, 004, 128, 132, 064 
52332 : 192, 164, 164, 164, 164, 000, 188 
52338 : 008 , 040 , 010 , 042 , 044 , 042 , 044 
52344 : 170, 064, 192, 064, 074, 078, 250 
52350 : 078 , 074 , 234 , 000 , 000 , 000 , 000 
52356 : 196, 170, 170, 170, 164, 000, 234 
52362 : 000, 000, 198, 170, 170, 198, 106 
52368 : 130, 130, 000, 000, 206, 168,010 
52374 : 142, 130, 142,000,000, 064, 116 
52380 : 234, 074, 074, 074, 078, 000, 178 
52386 : 000, 000, 170, 170, 174, 174, 082 
52392 : 074 , 000 , 000 , 000 , 170 , 170 , 070 
52398 :070, 162, 162,012,006,004,078 
52404 :228, 036, 068, 132, 230, 000, 106 
52410 :070, 162, 130, 194, 130, 130, 234 
52416 : 230, 000, 032, 114, 036, 047, 139 
52422 : 036 , 034, 032 , 032 , 004 , 004 , 084 
52428 :004, 004, 004, 000, 004, 000, 220 
52434 5 160,170,014,010,014,010,076 
52440 :000, 000, 074, 226, 132, 228, 108 
52446 : 036 , 232 , 074 , 000 , 066 , 162 , 024 
52452 : 164, 064, 160, 160, 096, 016, 120 
52458 : 040, 068, 130, 130, 130, 068, 032 
52464 :040 , 000 , 000 , 160 ,068 , 238 , 234 
52470 : 068, 160, 000, 000, 000, 000, 218 
52476 :000 , 014 , 000 , 096 , 032 , 064 , 202 
52482 : 001 , 001 , 002 , 006 , 004 , 008 , 024 
52488 :072 , 000 , 068 , 172 , 164 , 164 ,136 
52494 : 164, 164, 078, 000, 078, 162, 148 
52500 :036, 066, 130, 138, 228, 000, 106 
52506 : 174, 168, 238, 034, 034, 042, 204 
52512 :038, 000, 078, 162, 130, 196, 124 
52518 : 164, 168, 072, 000, 068, 170, 168 
52524 : 170, 070, 162, 164, 072, 000, 170 
52530 : 000, 000, 068, 000, 000, 068, 186 
52536 :004, 008, 016, 032, 078, 128, 066 
52542 : 078, 032, 016, 000, 132, 074, 138 
52548 :034, 020, 036, 064, 132, 000, 098 
52554 : 004, 010, 010, 254, 010, 010, 116 
52560 :010, 000, 196, 170, 168, 200, 056 
52566 : 168, 170, 196, 000, 206, 168, 226 
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52572 : 168 , 174 , 168 , 168 , 206 , 000 , 208 
52578 : 228, 138, 136, 234, 138, 138, 086 
52584 : 132, 000, 174, 164, 164, 228, 198 
52590 : 164, 164, 174,000, 234,042, 120 
52596 :042, 044, 042, 170, 074, 000, 232 
52602 : 138, 142, 142, 138, 138, 138, 190 
52608 :234, 000, 206, 170, 170, 170, 054 
52614 :170, 170, 174,000,196,170,246 
52620 : 170, 202, 138, 138, 132, 002, 154 
52626 : 198, 168, 168, 196, 162, 162, 176 
52632 :172, 000, 234, 074, 074, 074, 012 
52638 :074,074,078,000,170,170,212 
52644 : 170, 170, 174, 174, 074, 000, 158 
52650 : 170, 170, 074, 068, 068, 164, 116 
52656 :164, 000, 226, 034, 066, 079, 233 
52662 : 066 , 1 30 , 226 , 002 , 066 , 1 30 , 034 
52668 : 066 , 130 , 066 , 130 , 066 , 1 30 , 008 
52674 : 082 , 169 , 084, 162 , 089 , 164, 176 
52680 : 082 , 169 ,012 ,012 , 012,012 , 243 
52686 : 012, 012, 012, 012, 015, 000, 013 
52692 : 000 , 000 , 240 , 240 , 240 , 240 , 148 
52698 : 008 , 008 , 008 , 008 , 008 , 008 , 010 
52704 :008, 248, 161, 081, 161, 081, 196 
527 10 : 161 , 081 , 161 , 081 , 004 , 009 ,215 
52716 :002 , 004 , 169 , 082 , 164 , 089 , 234 
52722 : 050, 050, 050, 051, 050, 050, 031 
52728 :050, 050, 002, 002, 002, 003, 101 
52734 : 048 , 048 , 048, 048 , 000 , 000 , 1 90 
52740 :000, 224, 032, 032, 047, 047, 130 
52746 .-002,002,002,063,032,032,143 
52752 : 032, 032, 002, 002, 002, 254, 084 
52758 :034, 034, 034, 034, 140, 140, 182 
52764 : 140 , 140 , 140 , 140 , 140 , 140 , 100 
52770 : 063 , 063 , 048 , 048 , 048 , 048 , 096 
52776 : 048 , 048 , 240 , 240 , 240 , 000 , 088 
52782 : 000, 015, 015, 015, 000, 032, 123 
52788 :032, 032, 172, 108, 044, 012, 196 
52794 : 050, 050, 050, 062, 000, 000, 014 
52800 : 000 , 000 , 204 , 204 , 204 , 204 ,112 
5 2806 : 003 , 003 , 003 , 003 , 000 ,013,095 
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Program 2. Custom-80 

49152 :169, 000, 032, 144, 255, 169, 001 , , 

49158 »132, 133, 178, 169, 003, 133, 242 1 j 

49164 : 179, 169, 075, 133, 251, 169, 220 

49170 :018, 133, 252, 169, 000, 133, 211 

49176 :253, 169, 048, 133, 254, 160, 017 

49182 :000, 177, 251, 145, 253, 200, 032 

49188 :208, 249, 230, 252, 230, 254, 179 
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49194 : 165 , 252 , 201 , 023 , 208 , 239 , 106 

49200 : 169, 011, 141, 033, 208, 169, 011 

49206 :000, 141, 134, 002, 141, 032, 248 

49212 $208,169,147,032,210,255,057 

492 18 : 169 , 000 , 141 , 062 , 003 , 141 , 070 

49224 : 170, 195, 141, 160, 195, 141, 050 

49230 : 172, 195, 141, 173, 195, 169, 099 

49236 :008, 032, 210, 255, 169, 005, 251 

49242 : 141 , 165 , 195 , 169 ,013 , 141 ,146 

49248 :248 , 007 , 169 , 007 , 141 ,039 , 195 

49254 : 208, 169 , 001 , 141 ,021 , 208 , 082 

49260 : 169, 000, 168, 153, 064, 003, 153 

49266 : 200, 192, 064, 208, 248, 169, 171 

49272 :252, 141, 064, 003, 141, 091, 044 

49278 :003, 160, 003, 169, 132, 153, 234 

49284 : 064, 003, 200, 200, 200, 192, 223 

49290 :026, 144, 246,032,073,199,090 

49296 :032, 159, 192, 032, 198, 194, 183 

49302 :032, 248, 194, 032, 049, 194, 131 

49308 :076 , 144 , 192 , 162 , 000 , 160 , 122 

49314 :000, 024, 032, 240, 255, 173, 118 

49320 : 160, 195, 041, 001, 201, 001, 255 

49326 : 240, 005, 169, 240, 076, 183, 063 

49332 :192, 169, 015, 141, 163, 195, 031 

49338 : 173, 160, 195, 074, 010, 133, 163 

49344 :251, 169, 000, 133, 252, 006, 235 

49350 : 251, 038, 252, 006, 251, 038, 010 

49356 :252, 169, 048, 024, 101, 252, 026 

49362 : 133, 252, 173, 163, 195, 073, 175 

49368 :255, 141, 166, 195, 160, 000, 109 

49374 :169,018,032,210,255,177,059 

49380 : 251, 045, 163, 195, 141, 162, 161 

49386 : 195 , 162 , 000 , 173 , 163 , 195 , 098 

49392 :201, 015, 240, 012, 078, 162, 180 

49398 : 195 , 078 , 162 ,195 ,078 , 162 , 092 

49404 : 195 ,078 , 162 , 195 , 173 , 162 , 193 

49410 : 195, 041, 008, 240, 005, 169,148 

49416 :001, 076, 014, 193, 169, 000, 205 

49422 : 032 , 146 , 193 , 141 , 134, 002 , 150 

49428 :169, 207, 032, 210, 255, 173, 042 

49434 : 162,195,041,004,240,005, 161 

49440 : 169, 001, 076, 039, 193, 169, 167 

49446 : 000 , 232 ,032 , 146 , 193 , 141 , 014 

49452 :134, 002, 169, 207, 032, 210, 030 

49458 : 255 , 173 , 162 , 195 , 041 , 002 , 1 10 

49464 :240, 005, 169, 001, 076, 065, 100 

49470 : 193, 169, 000, 232, 032, 146, 066 

49476 : 193 , 141 , 134 ,002 , 169 , 207 , 146 

49482 :032, 210, 255, 173, 162, 195, 077 

49488 :041, 001, 240, 005, 169, 001, 025 
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49494 :076, 091, 193, 169, 000, 232, 079 , , 

49500 :032, 146, 193, 141, 134, 002, 228 J_J 

49506 :169, 207, 032, 210, 255, 169, 116. 

49512 :013, 032, 210, 255, 173, 163, 182 

49518 : 195, 201, 015, 240, 012, 014, 019 

49524 : 162, 195, 014, 162, 195, 014, 090 

49530 : 162, 195, 014, 162,195,177,003 

49536 :251, 045, 166, 195, 013, 162, 192 

49542 : 195, 145, 251, 200, 192, 008, 101 I 

49548 :240, 003, 076, 222, 192, 096, 201 wJ 

49554 : 141 , 164 , 195 , 140 , 169 , 195 , 126 

49560 : 173, 170, 195, 240, 008, 169, 083 

49566 :000, 141, 164, 195, 141, 162, 193 

49572 :195, 173, 172, 195, 240, 006, 121 

49578 : 173 , 162 , 195 , 153 , 178 ,002 ,009 

49584 : 173, 173, 195, 240, 006, 185, 124 

49590 : 178 , 002 , 141 , 162 , 195 , 204 ,040 

49596 :061, 003, 208, 106, 236, 060, 094 

49602 : 003 , 208 , 101 , 238 , 062 , 003 , 041 

49608 :173, 000, 220, 041, 016, 208, 090 

49614 : 067 , 205 , 063 , 003 , 240 , 065 , 081 

49620 : 141, 063, 003, 169, 004, 056, 136 

49626 : 237 , 060 , 003 , 168 , 169 , 001 , 088 

49632 :136, 240, 004, 010, 076, 224, 146 

49638 : 193, 141, 168, 195, 073, 255, 231 

49644 : 141, 167, 195, 173, 162, 195, 245 

49650 :045, 168, 195, 208, 015, 173, 022 

49656 :162, 195, 045, 167, 195, 013, 001 

49662 : 168 , 195 , 141 , 162 , 195 ,076 , 167 

49668 :021, 194, 173, 162, 195, 045, 026 

49674 : 167 , 195 , 141 , 162 , 195 , 076 ,178 

49680 :021, 194, 141, 063, 003, 173, 099 

49686 : 062 , 003 , 201 , 050 , 144 , 014 , 240 

49692 : 201 , 100 , 144 , 005 , 169 , 000 ,135 

49698 : 141 , 062 , 003 , 169 , 014 , 141 , 052 

49704 : 164 , 195 , 173 , 164 , 195 , 172 , 079 

49710 : 169, 195, 096, 206, 165, 195, 048 

49716 :208, 065, 173, 000, 220, 041, 247 

49722 : 015 , 141 , 162 , 195 , 041 , 001 , 101 

49728 :208, 003, 206, 061, 003, 173, 206 

49734 :162, 195, 041, 002, 208, 003, 169 j i 

49740 :238, 061, 003, 173, 162, 195, 140 ' — ' 

49746 : 041, 004, 208, 003, 206,060,092 

49752 :003, 173, 162, 195, 041, 008, 158 

49758 : 208 , 003 , 238 , 060 , 003 ,173,011 

49764 : 162, 195, 201, 015, 240 ,008, 153 

49770 : 169 , 051 , 141 , 062 , 003 , 032 , 052 

49776 :120, 194, 169, 005, 141, 165, 138 I j 

49782 :195, 096, 173,060,003,201,078 — ' 

49788 :255 , 208 , 008 , 169 ,003 , 141 , 140 
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, , 49794 : 060, 003 ,206, 160,195,173,159 

| [ 49800 : 060, 003, 201, 004, 208, 008, 108 

49806 :169, 000, 141, 060, 003, 238, 241 

49812 :160, 195, 173, 061, 003, 201, 173 

! — I 49818 :255, 208, 014, 169, 007, 141, 180 

! J 49824 :061, 003, 173, 160, 195, 056, 040 

49830 : 233 , 064 , 141 , 160 , 195 , 173 , 108 

, 49836 :061, 003, 201, 008, 208, 014, 155 

| i 49842 : 169, 000, 141, 061, 003, 173, 213 

49848 :160, 195, 024, 105, 064, 141, 105 
49854 : 160, 195, 169, 016, 141, 063, 166 
49860 :003, 096, 173, 160, 195, 074, 129 
49866 :074, 074, 074, 074, 074, 141, 201 
49872 :053, 003, 173, 160, 195, 041, 065 
49878 : 063 , 141 , 052 , 003 , 173 , 053 , 187 
49884 :003, 010, 010, 010, 024, 105, 126 
49890 : 153 , 141 , 001 , 208 , 173 , 052 , 186 
49896. :003, 010, 010, 024, 105, 055, 183 
49902 : 141, 000, 208, 169, 000, 042, 030 
49908 :141, 016, 208, 096, 169, 000, 106 
49914 : 141 , 170 , 195 , 141 , 171 , 195 , 239 
49920 : 141 , 172 , 195 , 141 , 173 , 195 , 249 
49926 : 032 , 228 , 255 , 208 , 001 , 096 , 058 
49932 :201 , 147 , 208 ,006 , 169 , 001 , 232 
49938 : 141, 170, 195, 096, 201, 019, 072 
49944 : 208 , 006 , 169 , 000 , 141 , 160 , 196 
49950 : 195 , 096 , 201 , 157 , 208 , 008 , 127 
49956 :169, 255, 141, 060, 003, 076, 228 
49962 : 120 , 194 , 201 , 029 , 208 , 008 ,034 
49968 :169, 004, 141, 060, 003, 076, 245 
49974 : 120 , 194 , 201 , 145 , 208 , 008 , 162 
49980 : 169, 255, 141, 061, 003, 076, 253 
49986 : 120, 194, 201, 017, 208, 008, 046 
49992 :169, 008, 141, 061, 003, 076, 018 
49998 : 120, 194, 201, 088, 208, 003, 124 
50004 :076, 124, 195,201,133,208,253 
j— I 50010 : 006, 169, 001, 141, 172, 195, 006 
/ I 50016 :096, 201, 136, 208, 006, 169, 144 
50022 : 001 , 141 , 173 , 195 , 096 , 201 , 141 
50028 :083, 208, 004, 032, 125, 197, 245 
i 50034 :096, 201, 076, 208, 004, 032, 219 
'— ' 50040 :046, 197, 096, 096, 169, 075, 031 
50046 : 133 , 251 , 169 , 018 , 133 , 252 , 058 
i — | 50052 :169, 000, 133, 253, 169, 048, 136 
! ( 50058 :133, 254, 160, 000, 177, 253, 091 
50064 : 145 , 251 , 200 , 208 ,249,230, 147 
50070 : 252 , 230, 254, 165 , 252 , 201 , 224 
j— ) 50076 :023, 208, 239, 000, 000, 000, 114 
-' 50082 : 000, 000, 000, 000, 000, 000, 162 
50088 :000, 000, 000, 000, 000, 000, 168 
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50094 :158, 029,029, 029,029, 029, 221 

50100 :029, 029, 029, 029, 029, 029, 098 ! { 

50106 :029, 029, 029, 029, 029, 067, 142 ' — 

50112 :085, 083, 084, 079, 077, 045, 133 

50118 :056, 048, 013, 144, 029, 029, 005 t | 

50124 :029, 029, 029, 029, 067, 076, 207 I I 

50130 :082, 032, 045, 032, 067, 076, 032 

50136 :069, 065, 082, 032, 067, 085, 104 

50142 :082, 082, 069, 078, 084, 032, 137 ) j 

50148 :067, 072, 065, 082, 065, 067, 134 N — ! 

50154 :084, 069, 082, 013, 029, 029, 028 

50160 :029, 029, 029, 029, 072, 079, 251 

50166 :077, 069, 032, 045, 032, 071, 060 

50172 :079, 032, 084, 079, 032, 070, 116 

50178 : 073, 082, 083, 084, 032, 067, 167 

50184 : 072, 065, 082, 065, 067, 084, 187 

50190 : 069, 082, 013, 029, 029, 029, 009 

50196 : 029 ,029 ,029 ,067 ,085 ,082 ,085 

50202 : 083, 079, 082, 032, 075, 069, 190 

50208 :089, 083, 032, 077, 079, 086, 222 

50214 : 069, 032, 065, 082, 079, 085, 194 

50220 :078, 068, 032, 067, 072, 065, 170 

50226 : 082, 032, 083, 069, 084, 013, 157 

50232 :029, 029, 029, 029, 029, 029, 230 

50238 : 070, 049, 032, 045, 032, 083, 117 

50244 :084, 079, 082, 069, 032, 067, 225 

50250 : 072, 065, 082, 065, 067, 084, 253 

50256 :069 ,082 ,032 ,073 ,078 ,032 , 190 

50262 : 066 , 085 , 070 , 070 , 069 , 082 ,016 

50268 :013 ,029 ,029 ,029 ,029 ,029 ,250 

50274 :029, 070,055, 032, 045, 032, 105 

50280 :071, 069, 084, 032, 067, 072, 243 

50286 : 065 , 082 , 065 , 067 , 084 , 069 , 030 

50292 :082, 032, 070, 082, 079, 077, 026 

50298 : 032, 066, 085, 070, 070, 069, 002 

50304 :082, 013, 029, 029, 029, 029, 083 

50310 :029, 029, 088, 032, 045, 032, 133 , , 

50316 :080, 085, 084, 032, 082, 069, 060 !___, 

50322 : 068, 069, 070, 073, 078, 069, 061 

50328 :068, 032, 067, 072, 065, 082, 026 

50334 : 065 , 067 , 084 , 069 , 082 , 083 , 096 

50340 :032 ,073 ,078 ,013 , 029 ,029 , 162 

50346 :029, 029, 029, 029, 032, 032, 094 

50352 :083, 067, 082, 069, 069, 078, 112 

50358 :032, 056, 048, 013, 029, 029, 133 \l 

50364 :029, 029, 029, 029, 074, 079, 201 

50370 : 089 , 083 , 084 , 073 , 067 , 075 , 153 

50376 :032, 067, 079, 078, 084, 082, 110 I j 

50382 :079, 076, 083, 032, 067, 085, 116 1 — ! 

50388 :082, 083, 079, 082, 032, 077, 135 
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, — > 50394 8 079,086,069,077,069,078,164 

> [ 50400 :084, 013, 029, 029, 029, 029, 181 

50406 :029, 029, 032, 032, 065, 082, 243 

50412 t079 ,085 ,078 ,068,032 ,069 , 135 

f ~*} 50418 : 088, 080, 065, 078, 068, 069, 178 

' i 50424 :068, 032, 067, 072, 065, 082, 122 

50430 : 065 , 067 , 084 , 069 ,082 ,032 , 141 

50436 :065, 078, 068, 013, 029, 029, 030 

' 50442 :029, 029, 029, 029, 032, 032, 190 

50448 :066, 085, 084, 084, 079, 078, 236 

50454 : 032 , 083 , 069 , 084 , 083 , 032 , 149 

50460 : 065, 078, 068, 032, 082, 069, 166 

50466 : 083 , 069 , 084 , 083 ,032 , 080 , 209 

50472 :073, 088, 069, 076, 083, 000, 173 

50478 :032, 224, 197, 008, 173,215,127 

50484 : 198 , 208 , 002 , 040 , 096 , 040 , 124 

50490 : 176 , 031 , 169 , 008 , 170 , 160 , 004 

50496 :000, 032, 186, 255, 173, 215, 157 

50502 : 198, 162, 199, 160, 198, 032, 251 

50508 :189, 255, 169, 000, 162, 000, 083 

50514 : 160, 048, 032, 213, 255, 032, 054 

50520 : 234 , 198,096 ,032 , 203 , 199 , 026 

50526 : 169 , 008 , 162 , 001 , 160 , 000 , 082 

50532 :032, 186, 255, 173, 215, 198, 135 

50538 : 162, 199, 160, 198, 032, 189, 022 

50544 : 255 , 169 , 000 , 170 , 160 , 048 , 146 

50550 :032, 213, 255, 032, 236, 199, 061 

50556 :096, 032, 224, 197, 008, 173, 086 

50562 : 2 15 , 198 , 208 , 002 , 040 , 096 ,121 

50568 :040, 176, 042, 032, 045, 199, 158 

50574 : 169, 008, 170, 160, 255, 032, 168 

50580 : 186, 255, 173, 215, 198, 162, 057 

50586 : 199, 160, 198, 032, 189,255, 163 

50592 :169, 048, 133, 252, 169, 000, 163 

50598 : 133 , 251 , 169 , 251 , 162 ,000, 108 

50604 : 160,056,032,216,255,032,155 

50610 : 234,198,096,032,203,199,116 

50616 :169,008,162,001,160,000,172 

50622 :032, 186, 255, 173, 215, 198, 225 

__ 50628 :162, 199, 160, 198, 032, 189, 112 

50634 : 255, 169, 048, 133, 252, 169, 204 

50640 :000, 133, 251, 169, 251, 162, 150 

50646 : 000 , 160 , 056 , 032 , 216 , 255 , 165 

50652 :032, 236, 199, 096, 160, 000, 175 

50658 : 162, 011, 024, 032, 240, 255, 182 

50664 : 169, 032, 162, 040, 032, 210, 109 

50670 : 255, 202, 208, 250, 160, 000, 033 

50676 : 162, 011, 024, 032, 240, 255, 200 

50682 : 162, 000, 189, 192, 198, 032, 255 

50688 :210, 255, 232, 224, 007, 208, 112 
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50694 
50700 
50706 
50712 
50718 
50724 
50730 
50736 
50742 
50748 
50754 
50760 
50766 
50772 
50778 
50784 
50790 
50796 
50802 
50808 
50814 
50820 
50826 
50832 
50838 
50844 
50850 
50856 
50862 
50868 
50874 
50880 
50886 
50892 
50898 
50904 
50910 
50916 
50922 
50928 
50934 
50940 
50946 
50952 
50958 
50964 
50970 
50976 
50982 
50988 



;245 
:210 
8 255 
:000 
:042 
5013 
$227 
:016 
:232 
:255 
:164 
(198 
tl57 
:032 
:210 
5169 
:014 
:000 
s255 
:210 
8215 
• 000 
s255 
8032 
s208 
:251 
:084 
8172 
8 162 
:162 
s255 
8159 
8 155 

8000 
8 000 

8153 
8 069 
8 068 
8032 

8001 

8 024 
8032 

8210 

8255 

8 015 

5255 
8032 
:201 
8032 
8096 



,162,000 
,255,138 
,168,104 
,240,243 
,201,034 
,240,065 
,201,128 
,240,219 
,072,169 
,104,032 
,032,210 
,224,000 
,032,210 
,210,255 
,255,032 
,164,032 
,198,142 
,162,011 
,162,017 
,255,202 
,198,208 
,162,011 
,162,000 
,210,255 
,245,032 
,201,068 
,208,243 
,198,024 
,011,024 
,017,169 
,202,208 
,078,065 
,000,000 
,000,000 
, 000 , 000 
,018,084 
,032,079 
,146,073 
,183,255 
,096,162 
,032,240 
,210,255 
,255,169 
,169,015 
,032,186 
,162,015 
,207,255 
,013,208 
,195,255 
,169,002 



,169,164 
,072,032 
,170,152 
,201,020 
,240,235 
,201,032 
,176,223 
,157,199 
,157,032 
,210,255 
,255,076 
,240,193 
,255,169 
,169,157 
,210,255 
,210,255 
,215,198 
,024,032 
,169,032 
,208,250 
,001,096 
,024,032 
,189,216 
,232,224 
,228,255 
,240,009 
,056,008 
,008,160 
,032,240 
,032,032 
,250,040 
,077,069 
, 000 , 000 
,000,000 
, 000 , 000 
,146,065 
,082,032 
,083,075 
,041,191 
,011,160 
,255,169 
,169,150 
,000,032 
,162,008 
,255,032 
,032,198 
,032,210 
,246,169 
,032,204 
,160,199 



,032,010 
,228,179 
,201,044 
,240,200 
,201,215 
,144,219 
,224,197 
,198,053 
,210,158 
,169,061 
,014,049 
,169,072 
,032,165 
,032,171 
,202,230 
,076,234 
,160,005 
,240,065 
,032,013 
,174,139 
,160,236 
,240,089 
,198,134 
,018,091 
,240,078 
,201,102 
,076,069 
,000,218 
,255,130 
,210,034 
,096,213 
,058,186 
,000,097 
,000,204 
,000,210 
,080,250 
,018,022 
,063,224 
,208,120 
,000,158 
,018,216 
,032,076 
,189,089 
,160,009 
,192,214 
,255,169 
,255,249 
,015,116 
,255,243 
,162,064 
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50994 : 071, 032, 189, 255, 169, 015, 013 

51000 : 168, 162, 008, 032, 186, 255, 099 

51006 : 032, 192, 255, 169, 015, 032, 245 

51012 :195, 255, 096, 073, 048, 120, 087 

51018 : 169 , 127 , 141 , 013 , 220 , 169 , 145 

51024 :001, 141, 026, 208, 173, 060, 177 

51030 : 003, 141, 018, 208, 169, 027, 140 

51036 : 141, 017, 208, 169, 199, 141, 199 

51042 : 021, 003, 169, 250, 141, 020, 190 

51048 :003 ,088 , 169 , 147 ,032 , 210 , 241 

51054 : 255, 160, 000, 169, 195, 133, 254 

51060 : 252, 169, 174, 133, 251, 177, 248 

51066 : 251, 240, 011, 032, 210. 255, 097 

51072 :200, 208, 246, 230, 252, 076, 060 

51078 : 121, 199, 169, 008, 133, 251, 247 

51084 : 169, 006, 133, 252, 165, 251, 092 

51090 : 133, 253, 165, 252, 024, 105, 054 

51096 : 212, 133, 254, 162, 000, 160, 049 

51102 : 004 , 138 , 145 , 251 , 169 , 000 , 097 

51108 :145, 253, 232, 200, 192, 036, 198 

51114 : 208, 243, 165, 251, 024, 105, 142 

51120 : 040, 133, 251, 165, 252, 105, 098 

51126 : 000 , 133 , 252 , 165 , 253 ,024 , 241 

51132 :105, 040, 133, 253, 165, 254, 114 

51138 : 105, 000, 133, 254, 224, 128, 014 

51144 :208, 211, 096, 120, 169, 000, 236 

51150 : 141, 026, 208, 169, 255, 141, 122 

51156 : 013, 220, 169, 049, 141, 020, 056 

51162 : 003, 169, 234, 141, 021, 003, 021 

51168 :169, 000, 141, 021, 208, 088, 083 

51174 : 169, 147, 032, 210, 255, 096, 115 

51180 :032, 073, 199, 169, 001, 141, 083 

51186 : 021 , 208 , 169 , 004 , 141 , 136 , 153 

51192 :002, 096, 173, 018, 208, 201, 178 

51198 : 146, 208, 021, 169, 000, 141, 171 

51204 :018, 208, 169, 028, 141, 024, 080 

51210 : 208 , 169 , 001 , 141 , 025 , 208 , 250 

51216 :104, 168, 104, 170, 104, 064, 218 

51222 : 169, 146, 141, 018, 208, 169, 105 

J—"? 51228 :021, 141, 024, 208, 169, 001, 080 

'-J 51234 : 141, 025, 208, 076, 049, 234, 255 

51240 : 000, 000, 000, 000, 000, 000, 040 
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Program 3. Custom Character Loader j j 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. — 

10 INPUT"FILENAME:";N$,D :rem 205 

20 F$=N$:ZK=PEEK(53)+256*PEEK(54)-LEN(F$):POKE 782 | I 

,ZK/256 :rem 180 I — 1 

25 POKE781,ZK-PEEK(782)*256:POKE780,LEN(F$):SYS654 

69 :rem 39 

30 POKE780,1:POKE781,D:POKE782,0:SYS65466 :rem 177 ) j 
40 POKE780,0:POKE781,222:POKE782,169:SYS65493 

:rem 115 
50 CLOSE1 : PRINT: PRINT" {CLR}"CHR$( 142) :rem 90 
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Screen Headliner 



! I Todd Heimarck 

^ This short machine language routine expands a 

I | letter to four times its normal size. The large 

character can then be used in a headline or for a 
variety of other purposes. The program is compat' 
ible with Commodore printers and can even be 
used with "Screen-80," the 80'column program 
which precedes this article. 



Oversized characters can be useful — on a title screen, in a chil- 
dren's alphabet or math program, or for visually impaired 
computer users. Finding the right combination of graphics 
characters usually takes time; you have to experiment. And 
creating a whole alphabet can use up a lot of memory. 

The simplest method for displaying huge letters without 
experimenting or wasting memory is to PEEK the character 
generator in ROM and print a solid block (reverse space) for 
each bit that is on. If the bit is off, you print a space. The one 
major disadvantage to this method is that each character ex- 
pands to eight times its normal size. Very little space remains 
on the screen — your 64 would suddenly turn into a five- 
column screen. But by keeping in mind the idea of reading 
character ROM, we can sidestep this problem with some spe- 
cial Commodore characters. 

n 

The Quarter-Square Solution 

Hold down the Commodore key and type IKBVDCF. These 

pi seven characters, plus a blank space, make up half of the 

quarter-square graphics set. The other half is accessed by typ- 
ing the same keys while reverse is turned on. There are 16 dif- 

r~| ferent characters, one for each combination of quarter squares 

turned on or off. 

Quarter squares enable you to set up what amounts to a 

p") medium-resolution screen. It's less complicated to program 

than a high-resolution screen, and has better resolution than 
the usual low-resolution character set. Instead of making 
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characters turn on and off, you control big pixels (each of j \ 

which is one-fourth of a character). A Commodore 64 sud- 
denly has the capability to address 80 X 50 big pixels. 

The 16 characters are the starting point for the "Screen ) [ 

Headliner." The basic idea is to read the character ROM, 
translate each bit into a big pixel, and print the equivalent 
quarter-square graphics character. You can do it in BASIC with \ I 

a lot of PEEKs and POKEs, but machine language is faster and ' — 

more elegant. 

The program is easy to use. After entering and saving it, 
type RUN. A short machine language program is POKEd into 
memory. To make it work, you need two POKEs and a SYS: 

POKE 249,0: POKE 250,1: SYS 828 

You should see a large capital A, four characters wide and 
four deep. Now simultaneously press the Commodore and 
SHIFT keys to switch to the upper/lowercase set. Cursor up to 
the POKEs, press RETURN, and you'll see a large lowercase a. 
Now try putting a 129 into location 250; the result is the same 
character printed in reverse. 

If you've saved a copy of Headliner, type NEW to erase 
the BASIC loader program. (It won't affect the ML program, 
which is safely tucked into the cassette buffer.) Now type this in: 

l MK=7 

5 PRINT" [CLR}"; 

10 FORX=0TO255 

20 Y=(XANDMK)*4:POKE249,Y 

25 IFXANDMKTHENPRINT"{4 UP}"; 

30 POKE250,X:SYS828 

40 NEXT 

(Note: Tape users should not save this example program; 
tape operations erase Headliner from the cassette buffer.) Type {_ j 

RUN, and the whole Commodore character set will parade 
down the screen. 

u 

Making Letters '^~' 

The top of the large character is printed wherever the cursor 
happens to be when you SYS. The POKE to 249 determines j_J 

how far the cursor spaces over before it begins. The number 
must be between and 35. 

Next, POKE the letter's screen code into 250. Ignore the 
ASCII value, you want the screen code — the number you use 
when POKEing a character to the screen. Numbers 1 through 
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26 are the letters A-Z, 48-57 are the characters 0-9, and so 
on. To get a reversed character, add 128 to the screen code. (You 
can find a list of screen codes in Appendix E of the Commodore 
f~"l 64 User's Guide, the manual that came with your computer.) 

1 After you've POKEd into 249 and 250, enter SYS 828. 

The oversize character appears almost instantly. 



Three Bonuses and a Drawback 

The original version of this routine (used in two programs 
published in COMPUTEI's Gazette magazine— "Aardvark At- 
tack" a year ago, and more recently "Campaign Manager") 
figured out the shape of the large character and POKEd the 
appropriate quarter-square graphics to the screen. But Head- 
liner now PRINTS (using the Kernal PRINT routine at $FFD2) 
instead of POKEing. It's necessary to turn reverse on and off 
repeatedly to get all the quarter squares, which is a little 
cumbersome. But there are some major advantages to sending 
everything through $FFD2. 

The first advantage is that you can send large characters 
to a Commodore printer, although you need to change one 
value to print spaces instead of cursor-rights (see line 951 of 
the program listing at the end of the article). Enter this to 
make a printout: 

OPEN 4,4: CMD4: POKE 249,rt: POKE 250,1/1/: SYS 828 

Remember to replace xx with the location where you want to 
print, and substitute the screen code for yy. If you can, adjust 
your printer's line spacing to zero — so there's no extra space 
between the characters. When you're finished printing, 
PRINT#4:CLOSE4 properly closes the file to the printer. Un- 
fortunately, printers do not allow cursor up movements; 

! I you're limited to one large character per line. To get around 

this limitation, you could manually move the paper back, or 
. use a screen dump program, or (if you're feeling ambitious) 

ij use CMD to send output to a tape or disk file and then read 

the data back into an array for dumping to the printer. 

The figure below illustrates some of the large characters 

! I created by a Commodore printer. The first two columns show 

upper- and lowercase letters, while the third column shows 
the large letters expanded by the printer. 
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Normal and Expanded Samples 
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Another bonus of PRINTing rather than POKEing is that 
Screen Headliner is completely compatible with "Screen-80" 
(the 80-column program which appears in the article immedi- 
ately preceding this); you can use large letters, up to 19 per line, 
in combination with 80-column text on your Commodore 64. 

Finally, the flexibility of the PRINT command is at your 
fingertips: You can print almost anywhere on the screen, in 
any color you like (just change the cursor color). You can even 
mix large uppercase, lowercase, and graphics characters on the 
same screen. 

A slight drawback is that each line has to be followed by 
a carriage return, which means you cannot put a character at 
the right edge of the screen. Nor can you print the large charac- 
ter at the bottom of the screen (it always scrolls up one line). 

How It Works 

There are two sets of POKEs in the BASIC loader program. i i 

The first loop (688 to 703) contains the modified ASCII values L - ' 
of the quarter-square graphics characters. Since there is no 

such thing as an ASCII value of a reversed character, the re- j i 

verse flag has to be turned on and off. Bit 6 of each character ' — ' 
is used to signal whether or not the character is reversed; the 
number is then ANDed with $BF (191) to turn off bit 6 before 
the character is printed. 

The second loop (828 to 1006) is the machine language 

routine. It goes into the cassette buffer, but is written to be | j 

relocatable — if you need the cassette buffer for another ML ' — ' 
program, or if you are using a Datassette, you can move the 
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routine anywhere else in memory (the first loop has to stay 
where it is, however). If you put it in BASIC RAM, you'll have 
to protect it from being overwritten. 

If you're interested in machine language, here's a brief 
explanation of how Headliner works. The main routine first 
checks which character set is being used and sets a zero page 
pointer accordingly. The screen code number is then mul- 
tiplied by eight and added to the pointer. Once the pointer is 
set, the bytes from character ROM are loaded in two by two. 
By alternately shifting left the bytes (ASL) and rotating left the 
accumulator (ROL), a number from to 15 is generated. This 
is used as an offset to look up the appropriate quarter-square 
graphics character in the table at 688. Bit 6 is checked (if set, 
reverse is turned on), and finally, a JSR to $FFD2 prints the 
character. The program then loops back to get the next set of 
bits. 

Screen Headliner 

For mistake-proof program entry, be sure to use 'The Automatic Proofreader," Appendix C. 

5 PRINT" {CLR} PLEASE WAIT A MOMENT" : rem 153 
10 T=0:FORJ=688TO703:READK:T=T+K:POKEJ,K:NEXT 

:rem 134 
15 IPT<>3078THENPRINT"ERROR IN DATA STATEMENTS ": ST 
OP :rem 88 

20 T=0 : FORJ=8 28T01 006 : READK : T=T+K : POKE J , K : NEXT 

:rem 176 
25 IFT<>20306THENPRINT"ERROR IN DATA STATEMENTS" :S 



TOP 
30 POKE249,0 

688 DATA32 , 188 , 190 , 226 , 172 , 225 , 191 , 251 
696 DATA187,255,161,236,162,254,252,96 
828 DATA 169,208,133,004,173,024 
834 DATA 208,041,002,240,004,169 
840 DATA 216,133,004,169,000,162 
846 DATA 003,006,250,042,202,208 
852 DATA 250,024,101,004,133,004 
858 DATA 165,250,133,003,173,014 
864 DATA 220,041,254,141,014,220 
870 DATA 165,001,041,251,133,001 
876 DATA 169,000,133,250,169,005 
882 DATA 133,002,160,000,177,003 
888 DATA 133,005,230,003,177,003 
894 DATA 133,006,230,003,198,002 
900 DATA 240,028,162,004,169,000 
906 DATA 006,006,042,006,006,042 
912 DATA 006,005,042,006,005,042 



:rem 130 
:rem 141 
:rem 148 
:rem 158 
:rem 46 
:rem 32 
:rem 31 
:rem 28 
:rem 19 
:rem 40 
:rem 27 
:rem 23 
:rera 46 
: rem 26 
:rem 36 
: rem 36 
:rem 28 
:rem 25 
: rem 20 
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918 DATA 164,250,153,048,002,230 :rem 38 

924 DATA 250,202,208,232,240,210 :rem 26 

930 DATA 165,001,009,004,133,001 : rem 20 

936 DATA 173,014,220,009,001,141 : rem 28 

942 DATA 014,220,160,000,166,249 :rem 33 

948 DATA 240,008,169 :rem 229 

951 DATA 029: REM 032 IF USING A PRINTER : rem 129 

952 DATA 032,210 :rem 14 
954 DATA 255,202,208,250,169,004 :rem 45 
960 DATA 133,006,185,048,002,170 :rem 38 
966 DATA 189,176,002,133,005,041 :rem 46 
972 DATA 064,240,005,169,018,032 : rem 43 
978 DATA 210,255,165,005,041,191 : rem 46 
984 DATA 032,210,255,169,146,032 :rem 47 
990 DATA 210,255,200,198,006,208 : rem 43 
996 DATA 221,169,013,032,210,255 :rem 43 
1002 DATA 192,016,208,196,096 :rem 153 
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Reversi 



PI Keith Day 



This nineteenth-century game of strategy can be 
learned in minutes, but becoming an expert at it 
is another matter. You can play against another 
person or against the computer. You can even sit 
back and watch the computer wage a strategic 
battle against itself. One joystick required. 



Reversi, originally a board game for two players, was first 
published in London about 1888. It's as popular today as it 
was then. In fact, national and international competitions are 
held each year where thousands of players compete for fame 
and glory. 

The attraction of Reversi is that, although the rules are 
few and easy to learn, and play is very simple, the strategy 
and thought that go into a game can be quite involved. And 
this computer version makes the rules even easier to learn. 
The computer just won't let you break them! Illegal moves are 
not allowed; it's as simple as that. If you don't know if a move 
is legal, simply try it. If it's allowed, the computer executes it. 
If not, nothing happens. The question of which move is best, 
however, is left entirely up to you. 

One or Two Players 

Type in and save the game, using "The Automatic Proof- 
reader" program you'll find in Appendix C. The Proofreader 
makes it almost impossible to mistype "Reversi." 

After loading the game program from tape or disk, enter 
RUN. The screen clears and you're asked if you want to play 
against the computer. Answer Y for a computer opponent or N 
to play against another person. If you want to watch the com- 
puter play against itself, press the C key instead. 

As soon as you select your opponent, you'll see the game 
screen. It's divided into 64 squares — an 8X8 grid. The object 
of Reversi is to strategically place discs on the squares so that 
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more discs of your color are on the screen at the end of the 
game than your opponent's color. 



u 
u 
u 
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Flipping Discs 

Black always moves first. The moves are made by using a joy- 
stick plugged into port 1. If you're playing another person, 
you'll have to share the joystick. When the computer plays 
against itself, of course, you don't need to plug in a joystick. 

The first four discs are automatically placed on the screen 
at the beginning of the game. You place your discs by moving 
the cursor (black or white) to the square of your choice and 
then pressing the fire button. The computer will allow only 
legal moves. This means that at least one of your opponent's 
discs must be "outflanked" as a result. 

After you place your disc, the fun begins. The computer 
flips (reverses the color) all your opponent's discs that have 
been outflanked. (Outflanked discs are those that lie in a line 
between the disc just placed and another disc of the same 
color, so long as there is not a break in the line.) A disc may 
outflank any number of opposing pieces in vertical, horizontal, 
or diagonal lines. 

If you're unable to set a piece anywhere on the screen, 
you have to forfeit the turn. That's done by pressing the space 
bar. You can tell there are no legal moves available when the 
computer won't place a disc no matter what square you have the 
cursor on. If you're playing the computer, and it's the computer's 
turn, it will hand over control to you if it has no move. 

White's score is displayed in the upper left corner of the 
screen, while black's is in the upper right corner. The score is 
updated after each turn. 

At the end of the game, the computer will ask if you want ( 
to play again. Enter Y to play again or N to exit the program. [ | 

The Program 

Even though this program has a very graphic "feel," it was j j 

written entirely without the help of sprite graphics or other 
special graphics routines. Only the graphic characters found 
on the Commodore keyboard are used. In fact, the program is 
a very good demonstration of what can be done in BASIC 
with just the keyboard graphics and a little imagination. 

A quick inspection of the program also reveals that the j j 

GOSUB command is used extensively. That's because the logic 
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of the game seems to be an exercise in doing the same thing 
over and over, with only slight changes. For example, only 
one subroutine or section of the program is used to flip the 
discs. Variables are preset to indicate which disc is to be 
flipped and which color to flip it to. Once these variables are 
set, a subroutine is called with the GOSUB command and the 
disc changes color. The same single subroutine logic is also 
applied to performing the other tasks in the program, such as 
moving the cursor or reading the joystick. 

Playing Tips 

The best squares to occupy are the edges, since they can't be 
outflanked on all sides. The corners, in fact, seem to be the 
best squares to take, because they can't be outflanked from 
any direction. The best strategy, therefore, seems to be one of 
controlling the corners and edges. Be careful, though; even 
when you are way ahead, a few moves by your opponent can 
dramatically change the outcome of the game. 

That's why Reversi is such a popular game. It's fast, 
enjoyable, and full of changes in fortune. And since the com- 
puter does the tedious work of flipping the discs, you can con- 
centrate on strategy, working toward that ingenious move to 
turn several discs at once. 

Reversi 

For mistake-proof program entry, be-sure to use "The Automatic Proofreader," Appendix C. 

100 DATA 1,8,7,1,8,7,1,8,7,4,5,1 :rem 9 

110 DATA 4,5,1,1,8,7,1,8,7,3,6,3 : rem 6 

120 DATA 3,6,3,1,8,7,3,6,3,3,6,1 :rem 3 

130 DATA 4,5,1,3,6,3,1,8,7,2,7,5 :rem 6 

140 DATA 2,7,5,1,8,7,3,6,1,2,7,5 :rem 9 

150 DATA 2,7,5,3,6,1,2,7,5,2,7,5,0 : rem 100 

160 DIM G(10,9):GOTO 1240 :rem 9 

170 POKE S1+X+40*Y,P:POKE C1+X+40*Y,C: RETURN 

:rem 87 

|— | 180 P=98:C4=C:Vl=X:V2=Y:X=X*4+l:Y=Y*3-2 : rem 60 

' I 190 P3=PEEK(S1+X+40*Y):C5=PEEK(C1+X+40*Y) :GOSUB 17 

:rem 169 

200 Y=Y+1:P=P+128 :rem 186 

210 P4=PEEK(S1+X+40*Y):C6=PEEK(C1+X+40*Y):GOSUB 17 

- ' :rem 164 

220 X=Xl*4+l:Y=Yl*3-2 :rem 130 

230 P=P1:C=C2:G0SUB 170 :rem 36 

240 Y=Y+1:P=P2:C=C3: GOSUB 170 :rem 172 



n 
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250 X1=V1 :Y1=V2 :P1=P3 :P2=P4:C2=C5 :C3=C6 :X=V1 :Y=V2 : 
C=C4: RETURN :rem 40 

260 Vl=X:V2=Y:X=X*4:Y=Y*3-2:P=233:GOSUB 170jrem 39 
270 X=X+l:P=224:GOSUB 170 :rem 147 

280 X=X+1:P=223: GOSUB 170 :rem 147 

290 X=X-2:Y=Y+1:P=95 :GOSUB 170 : rem 243 

300 X=X+l:P=224:GOSUB 170 :rera 141 

310 X=X+1:P=105:GOSUB 170 :rem 140 

320 X=V1:Y=V2 :rem 9 

330 IF C=l THEN WS=WS+1 :G(X, Y)=l :rem 15 

340 IP C=0 THEN BS=BS+1:G(X,Y)=-1 :rem 18 

350 IF FL=1 AND C=l THEN BS=BS-1 : rem 159 

360 IF FL=1 AND C=0 THEN WS=WS-1 : rem 201 

370 RETURN :rem 122 

380 PRINT" {HOME} {DOWN} (3 SPACES} {3 LEFT} {WHT} " ;WS: 

:rem 139 
390 PRINT" {HOME} {DOWN} ";TAB( 36); "{3 SPACES} 

{3 LEFT }{BLK}"jBS: RETURN :rem 45 

400 IFBS+WS=64ORBS-0ORWS=0THEN1150 : rem 133 
410 IF C=0 OR{2 SPACES }CO$="N"THEN GOSUB 450 

:rem 66 
420 IF C=l AND CO$="Y"THEN GOSUB 870 :rem 135 
430 IF CO$="C"THEN GOSUB 870 :rem 238 

440 GOTO 400 :rem 101 

450 JV=PEEK(56321):FR=JVAND16:JV=15-(JVAND15) 

:rem 170 
460 IF JV=0 THEN 510 :rem 251 

470 IF JV=1 THEN Y=Y-1 :GOTO 540 :rem 192 

480 IF JV=2 THEN Y=Y+l:GOTO 540 :rem 192 

490 IF JV=4 THEN X=X-1 :GOTO 540 :rem 195 

500 IF JV=8 THEN X=X+1:G0T0 540 :rem 189 

510 X$="":GETX$:IF X$=" "THEN GOSUB 700 :rem 53 
520 IF FR<>16ANDG(X,Y)=0 THEN GOSUB 590 :rem 161 
530 RETURN :rem 120 

540 IF Y<1 THEN Y=8 :rem 235 

550 IF Y>8 THEN Y=l :rem 238 

560 IF X<0 THEN X=9 z rem 235 

570 IF X>9 THEN X=0 : rem 238 

580 GOSUB 180: RETURN :rem 208 

590 HX=X:HY=Y:OK=0 :rem 133 

600 XD=-1:YD=-1: GOSUB 740 :rem 148 

610 XD=0:GOSUB 740 :rem 245 

620 XD=l:GOSUB 740 »rem 247 

630 YD=0:GOSUB 740 :rem 248 

640 YD=l:GOSUB 740 :rem 250 

650 XD=0:GOSUB 740 :rem 249 

660 XD=-l:GOSUB 740 :rem 40 

670 YD=0:GOSUB 740 :rem 252 

680 IF OK=0 THEN RETURN :rem 67 
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700 
710 
720 

730 



690 GOSUB 380:P1=160:P2=160:GOSUB 700:RETURN 

:rem 68 
IF G(X,Y)=1 THEN C2=1:C3=1 :rem 57 

IF G(X,Y)=-1THEN C2=0:C3=0 : rem 101 

IF TN=-1THEN TN= 1 :C=1 :X=0 :Y=3 : GOSUB 180:RETUR 
N :rem 254 

IF TN= 1THEN TN=-1 :C=0:X=9 :Y=3 : GOSUB 180:RETUR 
N :rem 7 

740 FL=0:BR=0 :rem 213 

750 IF X<1 OR X>8 THEN GOTO 820 :rem 97 

760 IF Y<1 OR Y>8 THEN GOTO 820 :rem 100 

770 X=X+XD:Y=Y+YD :rem 67 

780 IF FL=1 AND G(X,Y)=-TN THEN GOSUB 260:GOTO 770 

:rem 218 
IF G(X,Y)=-TN THEN BR=1 :GOTO 770 : rem 242 
IF G(X,Y)=TN AND BR=1 AND OK=0 THEN GOSUB 830 

:rem 116 
IF G(X,Y)=TN AND BR=1 THEN OK=l :FL=1 :BR=2 :X=HX 



790 
800 

810 



:Y=HY:GOTO 770 :rem 240 

820 X=HX:Y=HY: RETURN :rem 90 

830 SX=X:SY=Y:X=HX:Y=HY :rem 55 

840 IF C=l AND CO$="Y"THEN GOSUB 1030 : rem 178 

850 IF CO$="C"THEN GOSUB 1030 : rem 25 

860 GOSUB 260 :X=SX:Y=SY: RETURN :rem 198 

870 OK=0:Z=0: RESTORE :rem 5 

880 IF(WS+BS)>8{2 SPACES) THEN 900 : rem 40 

890 FOR TM=1 TO 30: READ Q:NEXT :rem 189 

900 READ Nl :rem 52 

910 IF N1=0 THEN GOSUB 720:RETURN :rem 119 

920 READ N2,N3,N4,N5,N6 : rem 241 
930 IF RND(0)>.5 THEN SW=N1 :N1=N2 :N2=SW:N3=-N3 

:rem 131 

940 FOR Y=N1 TO N2 STEP N3 : rem 121 
950 IF RND(0)>.5 THEN SW=N4:N4=N5 :N5=SW:N6=-N6 

:rem 151 

960 FOR X=N4 TO N5 STEP N6 : rem 131 

970 REM: GOSUB 180 :rem 215 

980 IF G(X,Y)=0 THEN GOSUB 590 :rem 95 

990 IF OK=l THEN GOTO 1020 :rem 100 

1000 NEXT:NEXT : rem 121 

1010 GOTO 900 :rem 148 

1020 RETURN :rem 163 

1030 Q2=X:R2=Y:Y=Y1 :rem 138 

1040 IFQ2-XK>0THENXA=(Q2-X1)/ABS(Q2-X1) :rem 85 

1050 IF C=1ANDQ2=1 THEN GOTO 1090 :rem 252 

1060 IF C=0ANDQ2=8 THEN GOTO 1090 :rem 3 

1070 X3=X1+XA :rem 221 

1080 FORX=X3TOQ2-XASTEPXA:GOSUB180:NEXT : rem 93 

1090 IF Y1=R2 THEN GOSUB 180:GOTO1120 :rem 35 

1100 YA=(R2-Y1)/ABS(R2-Y1) : rem 182 
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1110 FOR Y=Y1T0R2STEPYA:G0SUB 180:NEXT :rem 147 
1120 X=Q2:Y=R2 :rem 48 

1130 FOR TM=1 TO 400:NEXT TM :rem 12 

1140 RETURN :rem 166 , , 

1150 PRINT" {HOME }E7§{ 3 RIGHT}"; :rem 215 | j 

1160 IF CO$="Y" AND WS<BS THEN PRINT"THAT WAS TOUG 
H.";:GOTO 1210 :rem 120 

1170 IF CO$="Y" AND WS>BS THEN PRINT"THAT WAS A BR | | 

EEZE.";:GOTO 1210 :rem 242 < — ' 

1180 IF BS>WS THENPRINT"BLACK WINS."; trem 221 
1190 IF WS>BS THENPRINT "WHITE WINS."; :rem 2 
1200 IF BS=WS THENPRINT"A TIE I A TIE I"; : rem 145 
1210 PRINT" PLAY AGAIN? Y/N"; : rem 123 

1220 GETX$:IFX$o"Y"ANDX$<>"N"THEN 1220 :rem 204 
1230 IF X$="N" THEN PRINT" {CLR} {HOME}" ; :END 

:rem 146 
1240 X1=0:Y1=0:BS=0:WS=0:S1=1024:C1=55296:C=14:FL= 

0: PRINT "{CLR} {HOME}" trem 60 

1250 FOR X=l TO 10: FOR Y=l TO 9 trem 61 

1260 G(X,Y)=0 :rem 171 

1270 NEXTtNEXT : rem 130 

1280 PRINT"PLAY AGAINST COMPUTER? {2 SPACES }Y/N " 

:rem 93 
1290 GET CO$ :rem 98 

1300 IF CO$o"Y"ANDCO$o"N"ANDCO$<>"C" THEN GOTO 1 

290 :rem 115 

1310 PRINT" {CLR} {HOME}"; :rem 119 

1320 PRINT"{3 SPACES}gA3***ERl***gRl***ER§***gR§** 

*ER3***BR3***ERj***IsT" Trim 2TT 

1330 FOR X=I TO~"8"~ :rem 79 

1340 PRINT" {3 SPACES} -{3 SPACES} -{3 SPACES }- 

{3 SPACES } z { 3 SPACES} -{3 SPACES }-{ 3 SPACES }- 

{3 SPACES} -{3 SPACES } z " trem 94 

1350 PRINT" {3 SPACES} -{3 SPACES} -{3 SPACES }- 

{3 SPACES} -{3 SPACES} -{3 SPACES} -{3 SPACES }- 

{3 SPACES } z { 3 SPACES}-" " trem 95 , 
1360 IF X<8 THEN PRINT" {3 SPACES} EQj ***+***+***+** j j 

*+»**+»»»+»»»+»»* g w | » trem 128 

1370 NEXT X trem 98 

1380 PRINT"{3 SPACES}gZl***EEl***gE§***EEl***gEl** 1 | 

*EE3***gE3***gE3***fxT" ; ~em 25 L -» 

1390 X=ll:Y=6:P=87:GOSUB 170 trem 82 

1400 X=27tGOSUB 170 :rem 21 , 

1410 Y=18tGOSUB 170 trem 23 j | 

1420 X=lltGOSUB 170 -rem 16 

1430 Y=6:GOSUB 170 trem 230 

1440 X=4tY=4tC=ltGOSUB 260 trem 211 

1450 X=5tY=4tC=0tGOSUB 260 :rem 212 
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1460 X=5:Y=5:C=l:GOSUB 260 :rem 215 

1470 X=4:Y=5:C=0:GOSUB 260 :rem 214 

1480 GOSUB 380 : rem 232 

1490 P1=96:P2=96:C2=6:C3=6 :rem 168 

1500 X=9:Y=3:P=98:C=0:TN=-1:GOSUB 180 :rem 131 

1510 GOTO 400 :rem 148 
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Family Tree u 

Mark Haney j 

Your computer is the perfect tool for keeping 

records. Storing and retrieving information, ' i 

displaying it on the screen (or on paper), and let- 
ting you easily change the data are some of the 
most efficient uses of your Commodore 64- And 
genealogy is just a mass of information: names, 
dates, and relationships. With "Family Tree," 
you can use the 64's record'keeping power to trace 
your family's roots. For tape or disk users. 



Have you ever tried to create a family tree? Usually, you have 
to create a diagram-like chart and then write each name down 
in the proper blank. Adding or changing the chart can be al- 
most impossible without redoing it all. That's one of the dis- 
advantages of paper and pencil. 

Your Commodore 64 can help you trace your ancestors, 
without all the trouble of constantly redrawing charts. "Family 
Tree," a sophisticated record-keeping program for the 64, lets 
you enter names, dates of birth, and relationships. You can 
save the information to tape or disk, allowing you access to 
your genealogy at any time. Changing or deleting entries is 
done with a keypress or two. Adding more names is just as 
simple. And you can even create a copy of the chart if you 
have a printer. (If you have a Commodore MPS 801 printer, j | 

see page 92.) < — ' 

A family tree is a very personal piece of history. Your fa- 
ther's version neglects half your heritage, your son's includes | j 
people of only academic interest to you. Some first cousins ' — ' 
you see several times in a year, others you may never recall 
meeting. 

This is not to say that you would wish to purge anyone 
from your family tree. But given the limitations of printed 
genealogy charts, it's difficult to make any sense of a docu- 
ment containing anything more than perhaps a few score of 
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names. And the task of maintaining or copying such a record 
is formidable indeed. 



n Tracing 

Family Tree has two functions, maintenance and display, that 



operate together at all times. Storage and retrieval are taken 
care of by the LOAD and SAVE commands, as the program is 
self-modifying. 

Type in and save Family Tree to tape or disk. It's much 
easier to enter the program if you use "The Automatic Proof- 
reader," found in Appendix C. You can insure an error-free 
copy of the program if you use the Proofreader. 

When you first run Family Tree, you'll see a screen with 
instructions. The letters at the top indicate keys to press when 
you create the chart. We'll talk about them in a moment. After 
a short wait while the program initializes variables, you'll be 
asked to enter the filename of the tree you want to display. If 
this is your first time using Family Tree, then just hit the RE- 
TURN key. Press any key and the initial entry message ap- 
pears at the bottom of the screen. 

This is where you start. It may be worthwhile, before you 
begin, that you have an idea of how you're going to trace your 
genealogy. Begin with your name, and then work backwards 
to your distant ancestors? Or start with a great-great-great- 
grandmother and work towards your closer relatives? 

Whatever you decide, type in the initial entry. First name, 
last name, and birth year need to be separated with commas. 
If you don't know the year of birth, you can leave it out, but 
you still need the comma after the last name. Later, when you 
determine the birth year, you can return to the entry and put 

_^ it in. 

J 1 As soon as you hit the RETURN key, the screen scrolls up 

and a shortened version of the name appears in the middle 

r — left of the display. There should be two large blinking cursors 

I I bracketing the name. At the bottom, in reverse video, will ap- 
pear the full name, as well as birth year. 

(When you've created a family tree file, saved it, then 
later loaded it back into memory, the bracketed name and full 
entry is what you'll first see on the screen.) 

[ J Relative Spots 

The current person is noted by the cursor. Now you're ready to 

<—■ i 
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Key 

M 


Relative 

Mother ' 


F 


Father 


S 
i- 
N 
C 


Spouse 
Previous sibling 

Next sibling 
Child 



enter and display relatives of the current person by pressing . 
the following keys: j | 

U 

u 



After the initial entry appears, then you can type in that 
person's relatives by pressing one of the above keys. Hit the 
M key, for instance, and enter the current person's mother's 
name and birth year. Take care that you place commas be- 
tween the three items. (If you suddenly decide you don't want 
to make an entry, hit the RETURN key and the cursors move 
back to the last entry.) The mother then becomes the current 
person, as indicated by the cursors. You can continue to enter 
more names and birth years in this way. 

Backtracking, say to the initial entry, can be done in one 
of two ways. You can use the cursor keys on the Commodore 
keyboard to move the blinking cursors to that name. Or you 
can press the correct key from the table above. Let's say you 
have three names on the screen: the initial entry, and his or 
her mother and father. To move back to the initial entry, 
assuming the cursor is on the father's name, all you have to 
do is press the C (for Child) key and the cursors return to the 
first name. 

Don't worry about going off the screen as you enter sev- 
eral names. The display moves as necessary. | | 

Existing Trees 

If you've already created and saved a family tree file, and then J [ 

want to modify it later, all you have to do is specify the 
filename when you see the first screen display. Make sure the 

disk or tape with the file is in the drive or cassette, and type j [ 

in the file's name. You have to specify tape or disk by entering 
T or D. The file will load into memory and you'll see only the 

initial entry on the screen. Don't worry, the rest is there. You j j 

just have to hit a few keys to display it. 
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The initial entry is on the screen. What now? Just press 
the correct keys from the Relative table and the names appear 
in the chart. For example, if you earlier entered the initial en- 
try, plus that person's father, mother, and spouse, pressing F, 
M, and S (interrupted with some cursor movements) makes the 
three names display. 

Saving and Loading Trees 

Once you've created a tree that you want to save, just press Q. 
If you change your mind, you can hit the RETURN key and 
the screen appears as before. Press the Y key, however, and a 
prompt asking for a new filename shows at the bottom of the 
screen. You can save out a tree only if you've made changes. 
That's logical — why else would you want to save a file? 

As already discussed, to load a previously created tree 
file, all you have to do is enter its name in the first screen dis- 
play. It will load as soon as you've pressed T or D. 

More Keys 

Several other useful keys are: 



Kej Function 

CLR Clear screen, leaving only current person 

\~ : ' .'■-.' tJteij . Delete current person from display 
fl Delete entry from tree 

O Output current display to printer 

D ■ >. : ;. : :<^ang'e data -for currentperson , r t,'' V /"H 

_-, The cursor controls operate normally. 

Quit 

,__ When you decide to quit the program and hit the Q key, there 

I I are two possibilities: The tree has merely been displayed, or 

changes have been made. In the latter case, new DATA state- 
,_, ments must be created. It's essential that you wait for this pro- 
I I cess to occur and save the program after its completion. 

Otherwise, no record will be made of your changes. 
,__ I've used Family Tree to create a tree of 360 names. One 

' I suggestion for larger families is the creation of separate trees 

representing different family branches. An estimate of memory 
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Family Tree 

Tor mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 



U 

u 



requirements is given by 8000 +77*n for n entries. This de- |__J 

pends on name length and whether birth years are in all cases 
included. 

u 



U 



1 PRINTCHR$(147)"{12 RIGHT }THE FAMILY TREE":PRINT 

:rem 230 

2 PRINT"M — MOTHER" :PRINT"F— FATHER" :PRINT"S — SPOUS 
E":PRINT"P — PREVIOUS SIBLING" :rem 175 

3 PRINT"N — NEXT SIBLING" :PRINT"C — CHILD" :PRINT 

:rem 198 

4 PRINT" [CLR]— CLEAR SCREEN" : PRINT" [DEL] — DELETE E 
NTRY FROM SCREEN" :rem 74 

5 PRINT"[F1] — DELETE ENTRY FROM TREE" :rem 56 

6 PRINT"0 — OUTPUT SCREEN" : PRINT "Q — QUIT" :PRINT"D — 
CHANGE DATA" : rem 195 

7 PRINT"CURSOR CONTROLS NORMAL" :PRINT : rem 234 

9 PRINT"PLEASE WAIT FOR INITIALIZATION" :GOTO400 

:rem 15 

10 GOSUB500:IFA$=""THEN10 :rem 181 
12 GOSUB550 :rem 125 
15 ONJGOSUB110, 120, 130, 140, 150, 160, 170, 180,190, 200 

,210,220,230,240,250,260 :rem 186 

20 GOTO10 :rem 252 

110 IFY<MYTHENY=Y+1:N=SC(X,Y):GOSUB650 :rem 180 

111 RETURN :rem 115 

120 IFY>1THENY=Y-1:N=SC(X,Y):GOSUB650 :rem 68 

121 RETURN :rem 116 

130 IFX<MXTHENX=X+1:N=SC(X,Y):GOSUB650 :rem 178 

131 RETURN :rem 117 

140 IFX>1THENX=X-1:N=SC(X,Y):GOSUB650 :rem 67 

141 RETURN :rem 118 
150 M1=1:T1=1:T2=2:GOSUB850:RETURN :rem 79 
160 Ml=2:Tl=2sT2=l:GOSUB850: RETURN :rem 81 
170 M1=3:T1=3:T2=1:GOSUB800:RETURN :rem 79 
180 M1=6:T1=4:T2=4:GOSUB800: RETURN :rem 87 
190 M1=4:T1=5:T2=3:GOSUB800:RETURN :rem 86 

200 IFN=0THENRETURN :rem 235 

201 N=FT% ( SC (X,Y) , 6 ) :IFN=0THENM1=5 :GOSUB950 :IFN=0T 
HENN=LN:GOSUB650: RETURN srem 150 

202 IFOS%(N)<>0THENX=INT(OS%(N)/10):Y=OS%(N)-10*X: 
GOSUB650: RETURN :rem 222 

203 TN=FT%(LN,6) :rem 128 

204 IFOS%(TN)<>0THENX=INT(OS%(TN)/10):Y=OS%(TN)-10 ) I 
*X:N=TN:GOSUB650: RETURN :rem 67 — ' 
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205 IFFT%(TN,5)<>0THENTN=FT%(TN,5) :GOTO204 : rem 13 

206 IFX=1THENM1=4 :GOSUB700 ; D=-2 :GOSUB600 : RETURN 

:rem 224 

207 IFSC(X-1,Y)<>0THENGOSUB900: RETURN : rem 86 

208 X=X-1:D=-2:GOSUB600: RETURN :rem 105 

210 FORJ=1TOMY:FORK=1TOMX:SC(K,J)=0:NEXT:NEXT 

:rem 222 

211 FORJ=1TOMN:OS%(J)=0:NEXT : rem 243 

212 PRINTCHR$(19); :FORJ=lTONR:PRINTBL$ :NEXT: rem 39 

213 X=1:Y=4:D=0:GOSUB600: RETURN :rem 181 

220 GOSUB350:PRINTD$:A$="":INPUT"QUIT/Y, NO/CR";A$ 
:IFA$="Y"THEN222 : rem 206 

221 N=LN:G0SUB6 50: RETURN :rem 41 

222 IFFL=0THENGOSUB350:PRINTD$:END : rem 171 

223 GOSUB350:PRINTD$:PRINT"CHANGES HAVE BEEN MADE" 

: rem 55 

224 INPUT"NEW FILE NAME" ;N$ : INPUT "TAPE OR DISK";A$ 

:rem 232 

225 IFLEFT$ ( A$ , 1 )="T"THEN0PEN1 , 1 , 1 , N$ :GOT0227 

:rem 87 

226 0PEN1,8,2,N$+",SEQ,W" : rem 100 

227 PRINT#1,MN:FORJ=1TOMN:PRINT#1,N$(J,0)R$N$(J,1) 

:rem 234 

228 F0RK=1T06:PRINT#1,FT%(J,K):NEXT:PRINT#1,DT%(J) 
: NEXT : CLOSE 1 ? END : rem 176 

230 GOSUB350:PRINTD$:A$="":INPUT"OUTPUT/O OR CR";A 
$:IFA$=""THENGOSUB350: RETURN : rem 95 

231 OPEN4,4,4:CMD4:PRINTCHR$(27);CHR$(109);CHR$(4) 
; :rem 163 

232 FORJ=0TONR-3 :FORK=0TONC-2 :T1=PEEK(SC+NC*J+K) 

:rem 242 

233 IFT1=64THENPRINTCHR$(133); :GOT0239 :rem 68 

234 IFT1=93THENPRINTCHR$(134); :GOT0239 : rem 72 

235 IFT1=107THENPRINTCHR$(132); :GOT0239 :rem 115 

236 IFT1=115THENPRINTCHR$(131); :GOT0239 :rem 114 

237 IFT1=32THENPRINTCHR$(32); :GOT0239 :rem 17 

238 PRINTCHR$(Tl+64); :rem 209 

239 NEXT: PRINT: NEXT :PRINT#4:CLOSE4: RETURN : rem 57 

240 FL=1:M1=8:G0SUB785:IFN1$=""THENRETURN :rem 29 

241 GOSUB775:GOSUB650: RETURN : rem 41 
r""j 250 TP=SC+X*8+Y*120-169:FORJ=0TO3:FORK=0TO8:POKETP 

+J*40+K, 32: NEXT: NEXT :rem 108 

252 OS%(SC(X,Y))=0:SC(X,Y)=0:N=0:GOSUB650:RETURN 

r— 7 :rem 177 

i I 260 GOSUB350:PRINTD$:A$="":INPUT"DELETE FROM TREE/ 

Y, NO/CR";A$ :rem 217 

261 IFA$o"Y"THENN=LN:GOSUB650:RETURN :rem 103 

I* - ] 262 FL=l:IFFT%(FT%(N,l),6)oNANDFT%(FT%(N,2),6)<>N 

THEN264 : rem 236 
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263 TN=FT%(N,5) :FT%(FT%(N, 1) ,6)=TN:FT%(FT%(N,2) ,6) 
=TN :rem 198 

264 FT%(FT%(N,4),5)=FT%(N,5):FT%(FT%(N,5),4)=FT%(N 
,4):FT%(FT%(N,3),3)=0 :rem254 

265 TN=FT%(N,6) :rem 60 

266 IFTN=0THENN=0:GOTO250 :rem 48 

267 IFFT%(TN,1)=NTHENFT%(TN,1)=0:TN=FT%(TN,5) :GOTO 

266 :rem 176 , , 

268 FT%(TN,2)=0:TN=FT%(TN,5):GOTO266 :rem 90 M 
350 PRINTD$:PRINTBL$:PRINTBL$CHR$( 145): RETURN 

:rem 133 

400 P0KE51 , 200 :POKE55 , 200 :POKE52 , PEEK( 52 ) -1 :POKE56 
,PEEK{56)-1:CLR :rem 9 

401 X=l :Y=4 :N=1 :A$=" " :T1=0:T2=0 :T3=0 :T4=0: D=0 :DR=0 
:M1=0:J=0:K=0:TN=0 :rem 164 

402 MX=5 :MY=8 :NR=25 :NC=40:LE=7:LM( 1 )=800:LM( 2 )=800 
:LM(3)=912:LM(4)=912 srem 225 

403 SC=256*PEEK(648):MS=1000 :rem 33 

404 T5=255 :T6=256 :U8=128 :P1=0 :P2=0:P3=0:P4=0 

:rem 221 

405 DIMFT%(MS,6),0S%(MS),DT%(MS),N$(MS,1),SC(MX+1, 
MY+1),0P$(16) :rem 24 

406 F0RJ=1T08:READTP?(J):NEXT : rem 70 

407 DATAMOTHER, FATHER, SPOUSE , NEXT , CHILD , PREVIOUS , I 
NITIAL ENTRY, NEW DATA : rem 17 

408 F0RJ=1T016:READ0P$(J):NEXT :rem 114 

409 REM [DOWN], [UP], [RIGHT], CLEFT],,,,,,, [CLR],,,[ 
DEL],[F1] :rem 164 

410 DATA" {DOWN} " , " {UP} ", " { RIGHT} ", " {LEFT} " ,M,F,S,P 
,N,C, ,, {CLR}",Q,0 # D, ,, {DEL} ,, ,"{F1}" trem 82 

411 FR( 1 )=SC+LM( 1 ) : FR( 2 )=SC+3*NC: FR( 3 )=SC+LE+1 : FR( 
4)=SC+LM(4) :rem 190 

415 TG(1)=SC+LM(1)+3*NC:TG(2)=SC:TG(3)=SC:TG(4)=SC 
+LM(4)+LE+1 :rem 206 

420 T1=PEEK(55)+T6*PEEK(56) :F0RJ=T1T0T1+45:READT2: 
POKEJ,T2:NEXT :rem 155 

421 DATA160, 0,177, 251, 145, 253, 24, 165, 251, 101, 142,1 j i 
33,251,165,252,101,143,133 :rem 183 ' — ' 

422 DATA252, 24, 165, 253, 101, 142, 133, 253, 165, 254, 101 
,143,133,254,165,140,208 :rem 95 , , 

423 DATA4, 198, 141, 48, 5, 198, 140, 24, 144, 211, 96 j j 

:rem 177 

425 MN=0:N$(0,0)="EMPTY":N$(0,1)="SPOT" trem 141 

426 PRINT:N$="": INPUT "FAMILY TREE FILE NAME 
{2 SPACES} (CR IF NONE)";N$ :rem 233 

427 IFN$=""THEN433 :rem 232 

428 INPUT "TAPE OR DISK";A$ jrem 8 

429 IFLEFT? ( A$ , 1 )="T"THENOPENl , 1 ,0,N$ :G0T0431 

:rem 89 
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430 0PEN1,8,2,N$+",SEQ,R" :rem 92 

431 INPUT#1,MN:FORJ=1TOMN:INPUT#1,N$(J,0),N$(J,1) 

:rem 163 

432 F0RK=1T06:INPUT#1,FT%(J,K):NEXT:INPUT#1,DT%(J) 
:NEXT: CLOSE 1 :rem 162 

433 PRINT:PRINT"PRESS ANY KEY WHEN READY 

{10 SPACES}" :rem 55 

434 GETA$:IFA$=""THEN434 :rem 89 

435 IFMN=0THENM1=7:GOSUB950 :rem 172 

436 D$=CHR$(19) :F0RJ=1T0NR-3:D$=D$+CHR$( 17) :NEXT 

:rem 31 

437 BL$="":F0RJ=1T0NC-1:BL$=BL$+" ":NEXT:R$=CHR$(1 
3) :rem 162 

438 CH$(1)=CHR$(125):CH$(2)=CHR$(96):CH$(3)=CHR$(1 
71):CH$(4)=CHR$(179) :rem 148 

440 F0RJ=1T0NR:PRINTBL$ :NEXT:GOSUB600:GOTO10 

:rem 144 

500 P1=SC+(X-1)*(LE+1)+(Y-1)*3*NC:P2=P1+LE-1:P3=P2 
+NC-LE+1:P4=P3+LE-1 :rem 76 

501 GETA$:IFA$<>""THENRETURN :rem 214 
505 T1=PEEK(P1) :T2=PEEK(P2) :T3=PEEK(P3) :T4=PEEK(P4 

) :GETA$ : IFA$<> " "THENRETURN : rem 178 

510 POKEPl,Tl+U8:POKEP2,T2+U8:POKEP3,T3+U8:POKEP4, 

T4+U8 :rem 180 

515 FORJ=1TO50:GETA$:IFA$=""THENNEXT :rem 222 

520 P0KEP1 ,T1 :POKEP2 ,T2 :P0KEP3 ,T3 :POKEP4,T4 

:rem 213 
525 IFA$=" "THENFORJ=1TO50 :GETA$ : IFA$=" "THENNEXT 

:rem 131 
530 RETURN : rem 120 

550 FORJ=1T016:IFA$OOP$(J)THENNEXT :rem 183 

551 RETURN :rem 123 

600 GOSUB650 :PRINTLEFT$ (D$ , ( Y-l ) *3+l )TAB( (LE+1 ) * (X 
-1))LEFT$(N$(N,0),LE) :rem 206 

601 PRINTTAB((LE+1)*(X-1))LEFT$(N$(N,1),LE) 

:rem 134 
605 SC(X,Y)=N:OS%(N)=10*X+Y :rem 46 

610 IFABS(D)<>2THEN620 :rem 4 

615 PRINTLEFT$(D$, (Y-l )*3+2)TAB( (LE+1 )* (X+(D>0) )-l 
)CH$(ABS(D))f :rem 138 

616 PR1NTCHR$(145)CHR$(157)CH$(ABS(D)):RETURN 

:rem 138 

620 PRINTLEFT$(D$,3*(Y-(D>0))-3)TAB((LE+l)*(X-l)+2 

)CH$(ABS(D))CH$(ABS(D)) :rem 186 

625 RETURN :rem 125 

650 GOSUB350:LN=N:PRINTD$:PRINTCHR$il8)N$(N,0)" 

{2 SPACES} "N$(N,1)" {2 SPACES} "DT%(N) : RETURN 

:rem 156 
700 GOSUB350:POKE140,LM(M1)ANDT5:POKE141,LM(M1)/T6 

:rem 233 
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701 P0KE142 , 1 :POKE143 , : IFPR(M1 ) <TG (Ml )THENPOKE142 
,T5:POKE143,T5 :rem 78 

702 POKE251,FR(Ml)ANDT5:POKE252,FR(Ml)/T6 :rem 157 

703 POKE253 ,TG (Ml ) ANDT5 :POKE254 , TG (Ml ) /T6 : SYS ( PEEK 
(55)+T6*PEEK(56)) :rem 210 1 [ 

705 ONM1GOTO710,715,720,725 :rem 224 ' — > 

710 F0RJ=1T0MX:F0RK=1T0MY-1:0S%(SC(J,K))=0S%(SC(J, 
K))+1:NEXTK srem 23 ( 

711 OS%(SC(J,MY))=0:NEXTJ :rem 228 j__J 

712 FORJ=MYT01STEP-l:FORK=lTOMX:SC(K,J)=SC(K,J-l): *™~~ 
NEXT: NEXT :rem 85 

713 PRINTCHR$(19)BL$:PRINTBL$:PRINTBL$:RETURN 

:rem 162 

715 F0RJ=1T0MX:F0RK=2T0MY:0S%(SC(J,K) )=OS%(SC( J,K) 
)-l:NEXTK :rem 193 

716 OS%(SC(J,1))=0:NEXTJ :rem 116 

717 P0RJ=1T0MY:F0RK=1T0MX:SC(K,J)=SC(K,J+1):NEXT:N 
EXT :rem 190 

718 PRINTLEFT$ ( D$ ,3* (MY-1 ) )BL$ :PRINTBL$ :PRINTBL$ :R 
ETURN :rem 209 

720 F0RJ=1T0MY:F0RK=2T0MX:0S%(SC(K,J))=0S%(SC(K,J) 
)-10:NEXTK : rem 237 

721 OS%(SC(1,J))=0:NEXTJ :rem 112 

722 F0RJ=1T0MY:F0RK=1T0MX:SC(K,J)=SC(K+1,J):NEXT:N 
EXT :rem 186 

723 PRINTCHR$(19); :F0RJ=1T03*MY-1 :PRINTTAB(NC-LE-1 
)LEFT$(BL$,LE) :NEXT : rem 33 

724 F0RJ=SC+NC-1T0SC+NC-1+NR*NCSTEPNC:P0KEJ, 32 :NEX 
T: RETURN :rem 56 

725 F0RJ=1T0MY:F0RK=1T0MX-1:0S%(SC(K,J))=0S%(SC(K, 
J))+10:NEXTK :rem 77 

726 OS%(SC(MX,J))=0:NEXTJ :rem 233 

727 F0RJ=1T0MY:F0RK=MXT01STEP-1:SC(K,J)=SC(K-1,J): 
NEXT: NEXT :rem 91 

728 PRINTCHR$ ( 19 ) ; :F0RJ=1T03*MY-1 :PRINTLEFT$(BL$,L 
E+l) :NEXT :rem 173 

729 FORJ=SC+NC-1TOSC+NC-1+NR*NCSTEPNC:POKEJ,32:NEX \ I 
T: RETURN :rem 61 u — i 

750 TN=LN:N=MN+l:MN=N:GOSUB775 :rem 142 

751 IFFT%(TN,5)O0THENTN=FT%(TN,5):GOTO751 : rem 26 

755 FT%(TN,A)=N:IFFT%(TN / 4)<>0THENTN=FT%(TN # 4):GOT j I 
0755 :rem 4 

760 FT%(N,3)=FT%(TN,B):FT%(N,6)=TN:IFFT%(TN,B)O0T 
HENFT%(FT%(TN,B),3)=N :rem 108 \ | 

761 RETURN :rem 126 '- — 1 
775 N$(N,0)=N1$:N$(N,1)=N2$:DT%(N)=DT%:RETURN 

:rem 35 
785 GOSUB350:PRINTD$: PRINT: PRINT "TYPE FIRST NAME, ] | 
{SPACE} LAST NAME, BIRTH YEAR"; :rem 58 — ' 
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PRINTCHR$ ( 145 ) CHR$ ( 145 ) : PRINTTP$ (Ml ) ; :N1$= M " : D 
T%=0: I NPUTN1$,N2$,DT%: RETURN :rem 160 

IFN=0THENRETURN : rem 241 

N=FT%(SC(X,Y),T1):IFN=0THENGOSUB950:IFN=0THENN 
=LN:G0SUB6 50: RETURN : rem 194 

IFOS%(N)O0THENX=INT(OS%(N)/10):Y=OS%(N)-X*10: 
G0SUB6 50: RETURN : rem 231 

DR=1:IFT1=40RT1=3ANDY<5THENDR=-1 :rem 245 

810 IFSC(X,Y+DR)=0AND(Y+DR)>0AND(Y+DR) <MY+1THENY=Y 
+DR:D=T2*-DR:GOSUB600:RETURN :rem 185 

815 IFSC(X, Y-DR)=0AND(Y-DR) >0AND(Y-DR) <MY+1THENY=Y 
-DR:D=T2*DR:GOSUB600: RETURN :rem 153 

820 IFY=1THENM1=1 :GOSUB700: D=T2 :GOSUB600 : RETURN 

:rem 7 

825 1FY=8THENM1=2 :GOSUB700:D=-T2 :GOSUB600: RETURN 

:rem 65 

830 GOSUB900 : RETURN : rem 206 

850 IFN=0THENRETURN : rem 246 

852 N=FT%(SC(X,Y),T1) :IFN=0THENGOSUB950:IFN=0THENN 
=LN:G0SUB6 50 i RETURN : rem 199 

855 IFOS%(N)<>0THENX=INT(OS%(N)/10) :Y=OS%(N) -10*X: 
GOSUB650:RETURN :rem 236 

860 TX=INT(OS%(FT%(SC(X,Y),T2))/10):TY=OS%(FT%(SC( 
X,Y),T2))-10*TX:IFTX=0THEN870 :rem 199 

865 IFTY=1ORTY=MYORSC(TX,TY-1)=0ORSC(TX,TY+1)=0THE 
NX=TX:Y=TY:GOSUB170:RETURN :rem 133 

870 IFX=MXTHENM1=3 :GOSUB700 : D=2 :GOSUB600 : RETURN 

:rem 45 

875 I FSC(X+1,Y)<>0THENGOSUB900: RETURN : rem 95 

880 X=X+1:D=2:GOSUB600: RETURN : rem 64 

900 GOSUB350:PRINTD$CHR$( 17) "INSUFFICIENT SPACE ON 
SCREEN" :rem 46 

905 PRINT "SHOULD CLEAR OR DELETE "CHR$( 145 ): RETURN 

:rem 255 

950 IFMN<MS-1THEN952 : rem 209 

951 GOSUB350:PRINTD$:PRINT"INSUFFICIENT MEMORY" :F0 
r— ? RJ=1TO1000:NEXT: RETURN : rem 33 
)_\ 952 G0SUB785:IFN1$=""THENRETURN :rem 192 

955 FL=1 :0NM1G0T0956 , 960 , 965 , 970 , 975 , 980 , 990 

:rem 168 

956 A=l:B=2:GOSUB7 50: RETURN :rem 174 
960 A=2:B=1:GOSUB750:RETURN :rem 169 

965 TN=LN:N=MN+l:MN=N:GOSUB775 :rem 150 

966 FT%(TN,3)=N:FT%(N,3)=TN:FT%(N,6)=FT%(TN # 6) :IFF 
T%(N,6)=0THENRETURN : rem 103 

967 TN=FT%(N,6):A=1:IFFT%(FT%(N,6),2)=0THENA=2 

:rem 113 

968 FT%(TN,A)=N:TN=FT%(TN,5) :IFTN<>0THEN968 

:rem 104 

969 RETURN : rem 136 
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970 TN=LN:N=MN+1:MN=N:G0SUB775 :rem 146 , , 

971 FT%(N,1)=FT%(TN,1):FT%(N,2)=FT%(TN,2):FT%(N,4) j j 

=TN : FT% (TN, 5 )=N: RETURN :rem 180 

975 TN=LN:N=MN+1:MN=N:G0SUB775 : rem 151 

976 IFFT%(TN,6)<>0THENA=2+(FT%(FT%(TN,6),1)=TN):GO 
T0978 :rem 201 

977 GOSUB350 :PRINTD$CHR$( 17 )CHR$( 17) "GENDER OF PAR 
ENT; MOTHER/1, FATHER/2"; : rem 166 

978 PRINTD$CHR$(17)N$(LN,0);:INPUTA:B=2+(A=2) 

trem 109 

979 FT%(N,A)=TN:FT%(N,B)=FT%(TN,3):FT%(TN,6)=N:FT% 
(FT%(TN,3),6)=N:RETURN trem 226 

980 TN=LN:N=MN+l:MN=N:GOSUB775 :rem 147 

981 FT%(N,1)=FT%(TN,1):FT%(N,2)=FT%(TN,2):FT%(N,5) 
=TN:FT%(TN,4)=N :rem 155 

982 T3=FT%(TN,1):IFT3<>0THENFT%(T3,6)=N :rem 35 

983 T3=FT%(TN,2):IFT3<>0THENFT%(T3,6)=N :rem 37 

984 RETURN :rem 133 
990 MN=MN+l:N=MN:GOSUB775: RETURN :rem 72 

NOTE: 

In order for this program to work with a Commodore MPS 

801 printer, change the following lines. 

231 0PEN4,4:CMD4 :rem 158 

233 IFT1=64THENPRINTCHR$(96); :G0T0239 :ren 28 

234 IFT1=93THENPRINTCHR$(125); :G0T0239 : rem 72 

235 IFT1=107THENPRINTCHR$(171); :G0T0239 srem 118 

236 IFT1=115THENPRINTCHR$(179) ; :GOT0239 :rem 126 
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Supertank 



rn Boris Litinsky 

In this unusual action game, your goal is to pre- 
[~~] vent hostile tanks from crossing your territory. By 

aiming carefully and avoiding direct hits, you 
may make it to the rank of Marshal. Joystick 
required. 



Your orders are to stop the enemy tanks. But in the back of 
your mind, you know there's more to it than just following or- 
ders. You know that if you don't stop them, they'll stop you. 
Your goal is simply to survive. 

Your commander has been kind enough to give you a 
choice of three different tanks. The Tiger has strong armor, 
which is great for helping you survive, but it moves slug- 
gishly. The T-34 has moderate armor and speed, but lacks 
firepower. If you choose the Sherman, you'll have a quick 
tank with a good cannon, but almost no defense (armor). If 
you're a new recruit, you might want to choose the T-34 be- 
cause of its defensive capabilities. Advanced players who are 
sure of their abilities may prefer the Sherman, although a sin- 
gle hit by the enemy can be devastating. 

Controlling the Tank 

Using "The Automatic Proofreader" (found in Appendix C), 
I — | type in and save "Supertank." Load and run it, and in a few 

II moments you'll see the tank outfitting display. Notice the dif- 

ferent strengths and weaknesses each tank has. Pressing the 
I — i appropriate key (1 for Tiger, 2 for T-34, or 3 for a Sherman) 

' i begins the game. 

Your tank quickly moves onto the battlefield. Enemy 
tanks move across the screen from left to right. Using a joy- 
stick plugged into port 1, you can control the crosshairs of 
your cannon. Get the enemy tank in your sights and press the 
fire button to fire a salvo. Remember that it takes time for the 
shots to travel; you'll have to adjust accordingly, shooting 
slightly in front of your target. 
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After pressing the fire button, you'll see the shot fly (from 
the left edge of the screen). If it misses, nothing will happen. 
But if it hits the target, the enemy tank explodes and the 
screen changes color to simulate new terrain and new . . 

weather. You score ten points for each successful shot. I — I 

If you miss, you become the target. The enemy tank will 
turn toward you and fire. The enemy rarely misses — and , . 

you'll lose one armor point when you get hit. In the upper I 1 

right-hand corner is a status indicator which displays how 
many points you've scored and how much armor you have 
left. When your defenses reach zero, your tank is destroyed. 
The viewport cracks, and the tank is reduced to scrap. 

Sometimes, if you fire often enough, you can force the en- 
emy tank to vanish at the right side of the screen. It's fled un- 
der your bombardment, without firing a shot. Unfortunately, 
another one immediately takes its place on the left. However, 
this can give you some breathing space, especially if you're 
using the Tiger, whose turret swings around so slowly. 

Extra Chances 

Losing a tank is not a total catastrophe, however. You manage 
to escape by the skin of your teeth, and make your way back 
to headquarters. You are awarded a rank, based on your 
performance, from Private (less than 50 points scored) to Mar- 
shal (over 1000). But if no points are scored, you're branded a 
Trainee. Whatever your rank, you're given another chance to 
do battle. Choose another tank and the game begins again; 
you may yet earn the exalted rank of Marshal. 

Supertank 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

10 PRINT"{CLR}{HOME}":RESTORE:V=53248:POKEV+32,0:P ! I 
OKEV+33,l:POKEV+17,PEEK(V+17)AND247 : rem 174 ' 

15 PRINTTAB(53)"{BLU}{RVS}W*E*L*C*0*M*E1" :PRINTTAB 

(59)"{RED}{RVS}TO" :rem 147 ( i 

17 PRINTTAB( 55)" {RED }{RVS} SUPERTANK 1":PRINT 1 i 

:rem 158 

20 PORQ=lT04:PRINTTAB(14)"i5lBNi" :NEXT :rem 50 

22 PRINTTAB(14)"gNl{RVS}£{8 SPACES } i*§" :PRINTTAB( ji 
14)"{RVS}£ Q Q{2 SPACES }QQQ E*3{0FF}g2 HE8 03 ^ 
g3 I!" :rem 209 

24 PRINTTAB(13)"{RVS}£{2 SPACES }Q Q { 3 SPACES }M 

{3 SPACES}! OFF JE2 u|g8 Y§E3 uT" :rem 207 
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i— i 26 PRINTTAB(13)" {RVS}{3 SPACES }QQQ{ 2 SPACES } QQQ 
i I {2 SPACES} {OFF}" : rem 79 

28 PRINT" {3 SPACES} { RVS} £{30 SPACES} g*3 {OFF} " 

:rem 103 
r""j 30 PRINT"{2 SPACES }{ RVS} £{32 SPACES} g* 3 {OFF} " 

:rem 96 
32 PRINT"{GRN}g2 +3g53 {RVS} {34 SPACES} {OFF} {GRN} 

§3 +§" srem 236 

34 PRINT"g3 +H53M W{RVS}£ g*3{OFF}w{RVS}£ g*3 
{OFF}W{RVS}£ E T 3T0FF}WTRVS}£ g*3TOFF}wjRVS}£ 

§*1{0FF}W{RVS}£ B*§{OFF}W{RVS}£ g*3(OFF}WN 
{GRN} |4 +T" srem 255 

36 PRINT"|4 +3E51M {RVS} Q {OFF} {RVS} Q {OFF} 

{RVS} Q {OFF} TRVS} Q TOFF} {RVS} Q TOFF} {RVS} 
Q {OFF} {RVS} Q {OFF}N{GRN}i5 +3" :rem 148 
38 PRINT"i5 +3E53Ml*3{RVST {OFF}£Wi*3{RVS} {OFF} 
£W§*3{RVS} {OFF}£Wi*|{RVS} {OFF}£Wg*3 {RVS} 
TOFF}£Wg*3{RVS} T0FF}£Wi*3{RVS} TOFF}£{GRN} 
§6 +3 11- srem 31 

40 PRINT"g6 +3153126 Y3{GRN}g7 +3" srem 239 

42 F0RQ=1T02: PRINT "g 39 +3"sNEXT :rem 175 

43 GOSUB800 :rem 127 
48 S=54272:FORL=STOS+24:POKEL,0:NEXT :rem 14 
50 PRINT" {CLR} {HOME} {WHT} " :POKEV+32, 1 :POKEV+33 ,0:P 

RINTTAB(120) :rem 187 

52 GOSUB1000 :rem 168 

60 PRINT"{CLR}{HOME}{WHT}":PRINTTAB(90)"TANK SPECI 

FICATIONS" :rem 192 

62 PRINTTAB(49)"{RVS}{GRN} STRONG {OFF} {3 SPACES} 

{RVS}{YEL} MEDIUM {OFF} {2 SPACES} {RVS }{ WHT} WEA 

K {OFF}" :rem 65 

64 PRINTTAB(40)"{GRN}{RVS}1.TIGER{OFF}{4 SPACESjAR 

MOR{5 SPACES} {YEL}FIRE{ 5 SPACES } {WHT } SPEED " 

:rem 30 
66 PRINTTAB(40)"{YEL}{RVS}2.T-34{OFF}{5 SPACES} 

{GRN}SPEED{5 SPACES} {YEL} ARMOR {4 SPACES} { WHT} FI 
|~"] RE " : rem 44 

' ' 68 PRINTTAB(40)"{WHT}{RVS}3.SHERMAN{OFF}{2 SPACES} 

{GRN}FIRE{6 SPACES} {YEL } SPEED {4 SPACES} { WHT} ARM 

OR":PRINTTAB(120) :rem 62 

70 PRINT:INPUT"{H0ME}{15 DOWN}{3 SPACESjWHICH TANK 

DO YOU CHOOSE ";TA :rem 214 

72 IFTA<1ORTA>3THEN80 : rem 56 

78 PRINT" {4 DOWN} {13 SPACESjGET READY 1" :F0RQ=1T05 

00STEP.5:NEXT:GOTO85 : rem 10 

80 PRINT" {HOME} {15 DOWN} {10 SPACES }YOU CAN'T DO TH 

ATI {4 SPACES }":GOSUB1300:GOTO70 :rem 210 
85 V=53248:GOSUB1100 :rem 130 

90 PRINT" { CLR} { HOME }":POKEV+32,0:POKEV+33, Is rem 56 
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92 PRINTTAB(7)"{RVS}g5§£g*3{OFP}{4 SPACES} {RVS }£ j , 

g*§{0FF}{7 SPACES} {RVS}£g*l{OFF} {4 SPACES} j | 

{RVS}£i*H0FF}{4 SPACESTtRVS}{BLK}SCORE" : rem 1 

94 PRINTS 2 SPACES} { RVS }g5i£g*3 {OFF} {2 SPACES} 

{RVS}£{2 SPACES} {OFF} {3 SPACES} {RVS }£ I I 

{2 SPACES }g*l {OFF} {5 SPACES }{ RVS }£{ 2 SPACES} ' — ' 

g*l{OFF}{2 SPACES} {RVS} £{2 SPACESTg*3 {OFF} 
{2 SPACES} {BLK}";SC :rem 52 , , 

96 PRINT" {RVS}g5l£{2 SPACES}g*3£{3 SPACES}g*§ | | 

{OFF} {2 SPACES JTRVS} {4 SPACESTg*3{OFF} 
{2 SPACES} { RVS }£{ 5 SPACES} {OFF} {RVS}£ 
{4 SPACES}g*3{OFF}{2 SPACES} {RVS } {BLKTARMOR" 

:rem 171 

98 PRINT" {RVS} i5§£{9 SPACES}g*3£{5 SPACES}g*§£ 

{6 SPACES}£{6 SPACES}i*l{OFFT{BLK}";AR :rem 29 

100 FORQ=lT017:PRINT"{RVS}{GRN}g39 +l":NEXT:rem 64 

110 PRINT" {RVS} g53gQj CCCCCCCCC gW3{RIGHT}£ 

{13 SPACES }g*l{ RIGHT IgQa cCCCCCCCC gwa""" :rem 65 

112 PRINT" {RVS } E5JEQ3 CCCCCCCCC EW3 1 17 SPACES } gQjCCC 
CCCCCCgWi" :rem 129 

114 GOSUB420 :rem 172 

120 CB=1:TI$=" 000000" :rem 34 

150 POKEV+21 , 15 :POKE2040 , 13 :POKEV+39 ,0 :POKEV, 170 :P 
OKEV+1,150:Y=170:X=150:SH=0 :rem 27 

151 POKE2042 , 193 :POKEV+41 , 11 : RF=0 :UT=110 :POKEV+42 , 
0:POKE2043,195 :rem 206 

152 POKE2041 , 14 : POKEV+40 , :POKEV+2 , XI : POKEV+3 , Yl 

:rem 109 
180 S=NOTPEEK( 56321 )AND15 :U=SAND1 : D=SAND2 : L=SAND4 : 

R=SAND8:Y1=0:X1=0 :rem 165 

182 POKEV+23,0:POKEV+29,0 : rem 189 

185 IFUTHENX=X-M1:IFX<110THENX=X+M1 : rem 253 
187 IFDTHENX=X+M1:IFX>180THENX=X-M1 : rem 247 
189 IFRTHENY=Y+M1:IFY>245THENY=Y-M1 :rem 14 
191 IFLTHENY=Y-M1:IFY<90THENY=Y+M1 :rem 205 
200 POKEV,Y:POKEV+l,X :rem 59 

210 J=NOTPEEK( 56321 )AND16:IFJ=16THENGOSUB245 I j 

:rem 189 > — ' 
230 BO=BO+.5:GOSUB310:GOTO180 :rem 220 

245 SH=SH+1:X1=X:MR=Y:HH=Y/2:GOSUB400 :rem 64 
247 FORDD= DDTOHHSTEP5 : POKEV+2 , DD : POKEV+3, XI :GOSUB3 i 

30:NEXT :rem 224 

250 POKE2041 , 15 sFORDD=DDTOMRSTEP5 :POKEV+2 , DD:POKEV 
+3,X1:GOSUB330:NEXT :rem 171 i j 

251 IF(PEEK(V+30)AND4)>0THENIF(PEEK(V+30)AND4)>0TH I I 

ENGOSUB253 :rem 110 

252 X1=0 : DD=0 : Y1=0 : POKEV+2 ,X1 : POKEV+3 , MR: POKE2041 , 
14: RETURN :rem 131 

253 POKE2041,192:POKEV+23,2:POKEV+29,2 :rem 184 
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t— 1 254 POKEV+3,X1-10:POKEV+2,DD-12:GOSUB410:GOSUB495 

! I :rem 204 

258 FORRE=lTO500:NEXT:POKEV+23,0:POKEV+29,0 

:rem 152 
! I 260 X1=0:DD=0:Y1=0:POKEV+2,X1:POKEV+3,MR:POKE2041, 

' 14: RETURN :rem 130 

310 RF=RF+5:IFRF>215THEN350 :rera 95 

315 POKEV+4,RF:POKEV+5,UT: RETURN :rem 79 

330 RF=RF+1.8:IFRF>215THENRF=0 :rem 48 

333 IFRF=0THEN340 :rem 243 

335 POKEV+4,RF:POKEV+5,UT: RETURN : rem 81 

340 RF=0:UT=110:RS=INT(RND(0)*60) :UT=UT+RS:GOTO330 

:rem 61 

350 F1=RF : F2=UT : POKE2042 , 1 94 : POKEV+6 , Fl : POKEV+7 , F2 

:GOSUB400 :rem 77 

355 FORQ=F2TO150STEP .4 :P0KEV+7 ,Q:NEXT:POKEV+29,8 :P 

OKEV+23,8:POKEV+6,Fl-12 :rem 55 

360 F2=150:FORQ=F2TO230STEP.6:POKEV+7,Q:NEXT:GOSUB 

410 :rem 73 

390 POKEV+6 , : POKEV+7 , : POKEV+4 , : POKEV+5 , : RF=0 : P 
OKEV+23,0:POKEV+29,0 :rem 235 

391 POKE2042,193:GOTO499 : rem 118 
400 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:PO 

KES+6,16:POKES+24,15 :rem 70 

405 POKES+4, 129:POKES+l,34:POKES,75:RETURN :rem 91 
410 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,11:P 

OKES+6,16:POKES+24,15 :rem 112 

415 POKES+4, 129 :P0KES+1 , 54 : POKES, 111 : RETURN 

:rem 133 
420 S=54272 :FORL=STOS+24 :POKEL,0 :NEXT:P0KES+5 , 11 :P 

OKES+6,56:POKES+24,15 :rem 117 

425 POKES+4 ,1 29 :P0KES+1, 51: POKES, 97: RETURN :rem 96 
495 SC=SC+10:CB=0:RN=INT(RND(0)*15) :CB=CB+RN:G0T05 

00 :rem 95 

499 AR=AR-1 :rem 103 

500 V=53248:PRINT"{HOME}*':POKEV+32,0jPOKEV+33,CB 

:rem 248 

501 RF=0:UT=110:RS=INT(RND(0)*60) :UT=UT+RS:RF=RF+1 
•5: :rem 211 

502 PRINTTAB(7)"{RVS}g5l£g*l{OFF}{4 SPACES}{RVS} 
fi*ltOFF}{7 SPACES} {RVS}£g*l {OFF} {4 SPACES} 
IRVS } £| * 1 { OFF } { 4 SPACES JjRVS } { BLK j SCORE " 

:rem 45 
!-~) 504 PRINT"{2 SPACES} {RVS}g5§£g*3 {OFF} {2 SPACES} 
1 ' {RVS}£{2 SPACES} {OFF} {3 SPACES }{ RVS }£ 

{2 SPACES }|*3 {OFF} {5 SPACES } {RVS }£{ 2 SPACES} 

g*3{OFF}{2 SPACES} {RVS} £{2 SP ACESTi * 3 { OFF } 

{2 SPACES }{ BLK} ";SC " :rem 96 
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506 PRINT" {RVS}g5§£{2 SPACES}g*|£{ 3 SPACES}g*l 

{OFF} {2 SPACES JlRVS} {4 SP ACESTg * 3 { OFF } j j 

{2 SPACES }{ RVS }£{ 5 SPACES} {OFF} {RVS}£ ' — ' 

{4 SPACES }g*3 {OFF} {2 SPACES } {RVS } {BLKTARMOR" 

:rem 215 , , 

508 PRINT" {RVS}g53f{9 SPACES}g*§£{5 SPACES}g*§£ |_J 
{6 SPACES}£{6 SPACES }g*3{OFF7{BLK}";AR: rem 73 

509 IFAR=0THEN5"49 : rem 254 

510 RETURN :rem 118 

549 LL=18:BL=12:BB=15 :rem 169 

550 PRINT"{HOME}":POKEV+32,0:POKEV+33,1 :rem 214 
558 FORQ=5T07 :PRINTTAB(Q) " {BLK}M"SPC(10) "M" :NEXT 

:rem 41 

560 PRINTTAB(7)"{BLK}N"SPC(ll)"M"SPC(4) ,, NM":rem 29 

561 PRINTTAB(6) "N"SPCll3 ) "M"SPCl2) "N"SPCT2) "M" 

:rem 58 

562 PRINTTAB(5)"{BLK}N"SPC(15)"{BLK}MN"SPC(4)"M" 

:rem 177 

563 PRINTTAB(5)"M"SPC(21)"N"SPC(3)"NM" :rem 142 

564 PRINTTAB(6)"M"SPC(6)"NM"SPC(11)' W N ,, SPC(3)"N"SPC 
(2)"M" "~ ~ :rein 136 

565 PRINTTAB(7)"M"SPC(4)"N ,, SPC{2)"M"SPC(10)"M"SPC( 
2) ,, N"SPC(4)"M" :rem 52 

566 PRINTTAB(8)"M"SPC(2) M N"SPC(4)"M"SPC(10)"MN"SPC 
(6)"M" " :rem 139 

567 PRINTTAB(9)"MN"SPC(6)"M"SPC(17) ,, N" :rem 158 

568 PRINTTAB( lSJ^'SPCJ 15 ) ¥ N" :F0RLB=1T06 :PRINTTAB( 
LL)"N"SPC(14)"N":LL=LL-1:NEXT :rem 60 

570 F0RQ=1T05:PRINTTAB(BL) "N"SPC(BB) "M" :BL=BL-1 :BB 
=BB+2:NEXT :rem 187 

580 RESTORE : POKEV+23 , :POKEV+29 , :POKEV+21 , :GOSUB 
420:FORQ=1TO500STEP.1:NEXT : rem 66 

585 S=54272:FORL=STOS+24:POKEL,0:NEXT:GOSUB1200 

:rem 193 

588 V=53248: BO=BO/10:XX=INT(BO) :SC=SC+XX:IFSOHST 
HENHS=SC :rem 174 

589 PRINT" {HOME} {CLR} " :POKEV+32 , :POKEV+33 ,1 :POKE5 
3281,1 :rem 62 

590 PRINTTAB(85)"{RVS}g2§B*0*N*U*S ";XX;SPC(3) " 

{ RVS } SHOTS FIRED" ; SH : PRINTTAB ( 45 ) " { RVS } YOUR" ; 

:rem 201 I I 

591 PRINT" SCORE "fSC;SPC(3)" {RVS} HIGH SCORE ";HS:P I — ' 
RINTTAB(49)"{RVS}YOUR RANK IS {BLK}" ;B$ :rem 36 

592 PRINTTAB(43)"{RVS}g2iYOUR TOTAL SURVIVING TIME 

";TI$ :rem 114 M 

593 PRINTTAB(86)"{RVS}WANT TO PLAY AGAIN? (Y/N)" 

:rem 243 

595 GETC$:IFC$=""THEN595 :rem 109 I I 

596 SC=0:B$="":IFC$="Y"THEN599 :rem 168 I — I 

597 IFC$="N"THENSYS64738 :rem 164 
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598 C$=*""tGOT0595 J rem 164 

599 SH=0tSC=0tBO=0tXX=»0tPOKEV+32,ltPOKEV+33,0tGOTO 
60 :rem 172 

800 S=54272tFORL=STOS+24tPOKEL,0tNEXTtPOKES+5,9tPO 
KES+6,0tPOKES+24,15 :rem 19 

801 READHF,LF,DR:IFHF=-1THENRETURN :rem 196 
804 POKES+1 ,HFt POKES, LFt POKES+4 , 33 :F0RT=1T0DR:NEXT 

I | t POKES+4, 32 tGOTO801 :rem 168 

' ' 810 DATA18, 209, 1024, 15, 210, 512, 18 ,209, 512, 16, 195,1 

024,14,24,512,11,48,512 :rem 45 

811 DATA18, 209, 200, 16, 195, 200, 15, 210, 200, 14, 24, 200 
,15,210,512,22,96,512 trem 178 

812 DATA16, 195, 1024, 11, 48, 1024, 15, 210, 512, 14, 24, 20 
0,12,143,200,11,48,200 : rem 222 

813 DATA10, 143, 200, 11, 48, 200, 12, 143, 200, 11, 48, 512, 
16,195,512,14,239,512 trem 185 

814 DATA11, 48, 512, 15, 210, 200, 15, 210, 200, 14, 24, 200, 
12,143,200,11,48,200 trem 105 

815 DATA10, 143, 200, 11, 48, 200, 12, 143, 200, 11, 48, 512, 
16,195,1024,22,96,512 trem 186 

816 DATA18, 209, 1024, 15, 210, 512, 18, 209, 512, 16, 195,1 
024,14,24,512,11,48,512 trem 51 

817 DATA18, 209, 200, 16, 195, 200, 15, 210, 200, 14, 24, 200 
,15,210,512,22,96,512 trem 184 

818 DATA16, 195, 1024, 11, 48, 1024, 15, 210, 512, 14, 24, 20 
0,12,143,200,11,48,200 trem 228 

819 DATA10, 143, 200, 11, 48, 200, 12, 143, 200, 11, 48, 512, 
16,195,512,14,239,512 trem 191 

820 DATA11, 48, 512, 15, 210, 200, 15, 210, 200, 14, 24, 200, 
12,143,200,11,48,200 trem 102 

821 DATA10, 143, 200, 11, 48, 200, 12, 143, 200, 11, 48, 512, 
11,48,1024,-1,0,0 trem 210 

900 DATA255 , 255 , 25 5 , 128 , 24 , 1 , 128 , 24 , 1 , 128 , 24 , 1 , 128 

,24,1,128,24,1,128,24,1 trem 35 

905 DATA128, 24, 1,128, 36, 1,128, 66, 1,255, 129, 255, 128 

,66,1,128,36,1,128,24,1,128 trem 1 

910 DATA24, 1,128, 24, 1,128, 24, 1,128, 24, 1,128, 24, 1,1 

28,24,1,255,255,255 trem 93 

915 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

31,254,0,49,255,192,96,255 trem 88 

920 DATA240, 196, 127, 252, 206, 127, 255, 206, 127, 255, 19 

6,127,252,96,255,240,49,255 trem 35 

925 DATA192, 31, 254, 0,0, 0,0, 0,0, 0,0, 0,0 ,0,0, 0,0, 0,0 

trem 109 

926 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 
63,240,0,103,252,0,195,255 trem 66 

927 DATA0, 219, 255, 192, 195, 255, 0,103, 252, 0,63, 240,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0 trem 207 

928 DATA0, 0,0, 0,0, 0,0,0 trem 113 
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930 DATA0, 0,2, 34 ,128, 4, 0,64, 2, 146, 128, 16, 0,16, 10, 7 

3,32,64,0,4,17,140,96,64,0,4 :rem 2 

935 DATA17, 17, 16, 64, 0,4, 8, 136, 136, 64, 0,4, 17, 17, 16, 

32,0,8,8,136,128,16,0,16,2,72 :rem 80 

940 DATA128, 4, 0,64, 0,0,0 :rem 184 | [ 

945 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 64, 0,0, 64, 0,0, 64 ' 

,0,0,64,0,0,126,0,0,255,255,0 :rem 221 

947 DATA255, 0,63, 255, 252, 127, 255, 254, 255, 255, 255,1 

00,68,70,37,85,84,20,68,72 :rem 243 

950 DATA15, 255, 240, 0,0, 0,0, 0,0, 0,0,0 : rem 228 

955 DATA0, 2, 0,0, 2, 0,0, 2, 0,0, 2, 0,0, 58, 0,0, 70, 0,0, 18 

6,0,0,130,0,0,254,0,1,255,0 :rem 128 

960 DATA3, 255, 128, 7, 255, 192, 0,124, 0,15, 187, 224, 8,1 

86,32,15,187,224,8,130,32,15 :rem 52 

965 DATA131, 224, 0,0, 0,0, 0,0, 0,0,0 :rem 83 

970 DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 60,0 

,0,126,0,0,255,0,0,255,0,0 :rem 41 

975 DATA126, 0,0, 60, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,0,0,0,0,0,0,0,0,0,0,0,0 :rem 178 

1000 F0RA1=832T0894:READQ1:P0KEA1,Q1:NEXT :rem 22 
1010 FORA2=896T0958:READQ2:POKEA2,Q2:NEXT :rem 38 
1015 PORA3=960TO1022:READQ3:POKEA3,Q3:NEXT :rem 70 
1020 FORA4=12288TO12350:READQ4:POKEA4,Q4:NEXT 

:rem 226 
1025 PORA5=12352T012414:READQ5:POKEA5,Q5:NEXT 

:rem 228 
1030 FORA6=12416T012478:READQ6:POKEA6,Q6:NEXT 

:rem 239 
1035 FORA7=12480TO12542:READQ7:POKEA7,Q7:NEXT 

:rem 241 
1090 RETURN :rem 170 

1100 IFTA=1THENAR=5:IFTA=1THENM1=1 : rem 111 
1105 IFTA=2THENAR=3:IFTA=2THENM1=2 : rem 117 
1110 IFTA=3THENAR=1:IFTA=3THENM1=3 :rem 114 
1150 RETURN :rem 167 

1200 IFSC=0THENB$="TRAINEE" : rem 115 

1201 IFSO0ANDSC<51THENB$="PRIVATE" : rem 147 I I 

1202 IFSC>52ANDSC<101THENB$="SERGEANT" :rem 53 ' — ' 
1204 IFSC>101ANDSC<201THENB$="LIEUTENANT" : rem 3 

1206 IFSO201ANDSC<401THENB?="CAPTAIN" :rem 15 , i 

1208 IFSC>401ANDSC<601THENB?="MAJOR" : rem 142 j 

1210 IFSO601ANDSC<801THENB$="COLONEL" :rem 30 

1212 IFSO801ANDSC<1001THENB$="* GENERAL * " 

:rem 145 
1214 IFSO1001THENB$="** MARSHAL **" : rem 179 

1216 RETURN -rem 170 

1232 GOTO500 :rem 150 

1300 FORI =1TQ1 500 :NEXT: RETURN :rem 94 ! ! 
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Moving Message 

Robert F. Lambiase 

Scrolling messages across a screen can be used for 
advertising, simple reminders, or important notices 
at work and school. With "Moving Message," 
you can create, edit, save, load, and display mes- 
sages up to 3000 characters long. 



A message scrolling across a screen can be a real attention get- 
ter. It has all the right ingredients: motion and the ability to 
display more information than would fit on a single screen. 
You could flip through multiple screens, but the speed might 
be too fast or too slow for the viewer. A scrolling display 
paces the viewer and continuously gives new information. 

"Moving Message" lets you create and even edit a mes- 
sage; your Commodore 64 then scrolls that message across 
your display screen. 

Scrolling the 64 

The 64 has both horizontal and vertical scrolling capability. 
For this application, you'll only need horizontal scrolling. 

The computer's screen display is made up of 320 pixel- 
columns which are grouped into 40 character-columns, each 
with 8 pixel-columns. The first character column starts at the 
first pixel column. This can be changed, however, by altering 
the three least significant bits of address 53270. Sequencing 
these bits changes which pixel column (first through eighth) 
will be the starting point of the first character-column, and 
gives the effect of the character smoothly sliding over an entire 
character column. Sequencing up moves the characters to the 
right, and sequencing down moves the characters to the left. 

First Scroll, Then Shift 

Let's take a look at an example. Assume there is a single 
character on the right side of the screen that will be scrolled to 
the left. Sequencing the scroll bits from seven to zero will slide 
the character over to within a single pixel column of being a 
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full character column from where it started. To move over that 

one additional pixel column, the scroll bits must be reset to 

seven, and the character must be simultaneously moved left 

one screen position by altering the screen memory. 1 j 



Machine Language for Speed 

Now it gets a little tricky. The computer can't simultaneously ^ , 

reset the scroll bits and alter the screen memory. For maxi- i — < 

mum speed, the use of machine language is essential. Unfortu- 
nately, not even the breakneck speed of machine language is 
enough. As the character scrolls across the screen, there would 
be occasional flashes of the character. This occurs when the 
video chip is displaying the character between the time the 
scroll bits are reset and the time the characters are shifted left. 
This problem can be overcome by permitting the scroll reset 
and shifting to be done only when the video chip is not writ- 
ing on the screen. To do this, the raster register is used. 

Raster Register to the Rescue 

Reading the value in the raster register at location 53266 
yields the current raster line being written. The machine lan- 
guage program used to reset the scroll bits and shift the 
characters left is preceded by a small loop checking for raster 
line 50. This raster line is just past where the characters are 
scrolling. The speed of the machine language program is suf- 
ficient to finish all operations before the screen finishes scan- 
ning its last line. 

Filling the Ends 

There's just one more detail to handle. Scrolling to the left 
leaves a gap on the right side to the screen. Scrolling to the 

right leaves a gap on the left. This is remedied by a special | | 

feature of the video chip. By resetting bit 3 of location 53270 
to 0, the screen is reduced to 38 characters per line. The 

spaces on either side of the screen are no longer visible since | j 

they're obscured by the widened borders. 

Putting It All Together [_J 

Moving Message lets you create a message up to 3000 charac- 
ters in length, edit it, save it, recall it, and scroll it across the 

screen. When the last character scrolls off the screen, the first j ( 

character scrolls onto the screen again. The message is stored 
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in consecutive memory locations starting at location 50000, 
and may consist of letters, numbers, punctuation, and spaces. 
The end of the message is marked by pressing the space bar 
while the SHIFT key is held down. It appears as a normal 
space, but its ASCII code is 160 instead of 32, and its screen 
code (used for POKEs) is 96 instead of 32. 

Using the Program 

Make sure you use "The Automatic Proofreader," in Appendix 
C, to help you type in Moving Message. The Proofreader in- 
sures that you'll type the program in correctly the first time. 
Save it to tape or disk, then load and run it. 

You're ready to enter your message. Simply type it in. As 
you enter the characters (which first appear at the arrow on 
the right side of the screen), the message moves to the left. 
End the message with the SHIFT-space key combination. The 
message automatically starts to scroll. 

If you need to change anything in the message, hit any 
key and the scrolling stops. Use the cursor keys to position the 
arrow at the desired place in the message. The cursor-down 
key shifts the message to the left, while the cursor-right key 
moves the message to the right. This permits two-fingered 
operation. 

Change a character by positioning it over the arrow and 
typing in the new character. You can even type over your pre- 
vious end-of-message mark (SHIFTed space), but remember to 
add a new one. Characters can be inserted or deleted at the 
arrow by using the f 1 and f3 keys respectively. 

When your editing is complete, the f5 key is used to start 
the scrolling again. 

Saving and Loading 

Saving and loading of messages is possible with either tape or 
disk. Press the f4 key to save, the f6 key to load. You'll have 
to provide a filename and then press T for tape or D for disk. 
The message is read into memory and then begins to scroll 
across the screen. (If you're using tape and loading a message, 
sometimes you'll see unwanted characters between the end of 
the message and the next time it appears on the left. To elimi- 
nate these characters, hit any key to return to the main menu, 
then use the cursor-down key to move to the end of the mes- 
sage. Press the SHIFTed space combination again, and then f5 
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to start the scroll. The message should appear as you want.) 
To keep up with the speed of the disk, it's saved as if it 
were a machine language program. Since the Datassette is 
slower, the data is stored byte by byte. When the tape file is 
read in, the end is recognized when the SHlrTed space is seen. 

Enhancements 

Many enhancements of this program are possible. It's not too 
difficult to have two messages scrolling across the screen 
simultaneously. With more modification, you should be able 
to scroll large characters. 



Moving Message 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

140 DIMH(8):F0RJ=1T07:READH(J) :NEXT : rem 165 
150 DATA 17,29,133,135,140,139,138 : rem 137 
160 G=53270tPOKEG,8tPOKE53280,6tC$=CHR$(147) :N$=CH 

R$(18)tF$=CHR$(146) tGOSUB460 : rem 143 

170 IS=50000 :I=1S : FORV=49960TO49999 :POKEV, 32 tNEXT 

:rem 6 
180 REM{2 SPACES) LOAD MACHINE LANGUAGE PROGS. 

:rem 143 
190 FORJ=49152T049193:READD:POKEJ,D:NEXT : rem 240 
200 DATA162, 0,189, 161, 4, 157, 160, 4, 232, 224, 39, 208, 2 

45,96 :rem 198 

210 DATA162, 39, 189, 159, 4, 157, 160, 4, 202, 208, 247, 96 

:rem 173 
220 DATA173, 18, 208, 117, 50, 208, 249, 169, 7, 141, 22, 208 

,32,0,192,96 :rem 34 

230 REM :rem 121 

240 REM{2 SPACES} MESSAGE INPUT :rem 15 

250 GETA$tIFA$=""THEN250 :rem 81 

260 A=ASC(A$):P=A+64*((A>63)AND(A<161)) :rem 45 
270 IFA=140THEN1260 : rem 51 

280 IF((A<32ORA>132)ANDA<>160)THENPOKEI,96:IM=I:GO 

SUB320:GOTO630 : rem 123 

290 POKE1223,P:POKEI,P trem 60 

300 IFA=160THENIM=I:GOSUB320:GOTO350 trem 220 
310 SYS49152:POKE1223,32:I=I+1:GOTO250 :rem 201 
320 FORJ=I+lTOI+41:POKEJ,32:NEXT:RETURN trem 251 
330 REM trem 122 

340 REM{2 SPACES} MESSAGE SCROLLING trem 45 

350 I=IStPOKEG,7tPRINTC$tGOSUB450 trem 78 
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POKE1223,PEEK(I):I=I+l :rem224 

IFPEEK(1184)=96THENI=IS : rem 106 

F0RJ=6 TO0 STEP-1 : POKEG , J : FORK=0 T07 : NEXT : NEXT 

:rem 119 
SYS49178 :rem 168 

GETB$:TD=TD:IFB$=""THEN360 : rem 249 

B=ASC(B$):IFB=140THEN1260 :rem 119 

GOTO650 :rem 106 

REM :rem 123 

REM{2 SPACES } INSTRUCTION DISPLAY :rem 244 
FORJ=55456T055495 : POKEJ , 14 :NEXT : RETURN : rem 150 
PRI NTC $;:GOSUB450 :rem 28 

POKE55535,14:POKE1263,30 :rem 38 

F0RJ=1T08 : PRINT : NEXT : PRI NTT AB( 13) "MOVING MESSA 
GE" :rem 194 

PRINTTAB(83) "CHARACTERS ARE ENTERED AT THE ARR 
OW" :rem 193 

PRINTTAB(40)"USE: ";N$; "SHIFT SPACE" ;F$;" TO M 
ARK END OF MESSAGE" : rem 146 

PRINTTAB(5)N$;"F1";F$;" TO INSERT A CHARACTER" 

:rem 82 
PRINTTAB(5)N$;"F3";F$;" TO DELETE A CHARACTER" 

:rem 51 



PRINTTAB(5)N$;"F4"?F$;" TO SAVE' 



:rem 227 



PRINTTAB(5)N$;"F5";F$;" TO RESTART SCROLLING" 

jxem 136 

PRINTTAB(5)N$;"F6";F$;" TO LOAD" :rem 216 

PRINTTAB(5)N$;"F8";F$;" TO EXIT" : rem 245 

PRINTTAB( 40) "CURSOR " ;N$ ; "DOWN" ; F$ ; " & ";N$;"R 

IGHT";F$;" KEYS ARE USED TO" : rem 59 
PRINT" POSITION THE CHARACTERS OVER THE ARROW" 

:rem 76 

PRINT" FOR EDITING." : rem 136 

RETURN :rem 118 

REM :rem 123 

REM{2 SPACES} MESSAGE EDITING : rem 133 

IFA=139THEN870 : rem 17 

IFA=136THEN1040 : rem 53 

I=IS:POKEG,8:PRINT"{CLR}":GOSUB460 : rem 195 

POKE1223,PEEK(I) : rem 126 

GETA$:IFA$=""THEN670 : rem 93 

A=ASC(A$) :P=A+64*((A>63)AND(A<161)) :rem 51 

Q=0:FORJ=1TO7:IFA=H(J)THENQ=J :rem 65 

NEXT :rem 214 

ONQGOTO770, 800, 820, 350, 1260, 870, 1040 :rem 92 

IF(A=134ANDKIM)THEN840 : rem 72 

IFA=134THEN670 : rem 11 

POKE1223,P:POKEI,P :rem 60 

IFA=160THENIM=I:GOSUB320:GOTO350 : rem 229 

GOTO780 :rem 117 
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770 IFPEEK(1223)=96THEN670 : rem 227 

780 I=I+l:SYS49152:POKE1223,PEEK(I):IFI>=IMTHENIM= 

IM+1 : rem 59 

790 GOTO670 :rem 118 

800 IFI=ISTHEN670 s rem 21 

810 1=1-1 :SYS49166:POKE1184,PEEK(I-39) :GOTO670 

:rem 212 
820 F0RJ=IMT0ISTEP-1:P0KEJ+1,PEEK(J) :NEXT : rem 152 
830 POKEI,32:POKE1223,32:IM=IM+1:POKEIM+40,32:GOTO 

670 :rem 148 

840 F0RJ=IT0IM-1:P0KEJ,PEEK(J+1):NEXT :rem 94 
850 POKE1223,PEEK(I):POKEIM,32:IM=IM-1:GOTO670 

:rem 32 
860 REM :rem 130 

870 REM{2 SPACES }LOAD ROUTINE : rem 201 

880 INPUT" {CLR} FILE NAME";K$ : rem 242 

890 INPUT"TAPE (T) OR DISK (D)";A$ :rem 69 

900 IFA$="T"THEN970 :rem 49 

910 OPEN15,8,15,"I0" :rem 17 

920 OPEN3,8,0,"0:"+K$+",P,R" : rem 157 

930 INPUT#15,EN,EM$,ET,ES : rem 223 

940 IFEN<>0THENPRINT;EN,EM$,ET,ES:GOTO1240:rem 152 
950 POKE185,0:POKE195,40:POKE196,195:SYS62631 

:rem 110 
960 CLOSE15:CLOSE3:GOTO650 : rem 108 

970 OPEN3,1,0,K$ :rem 89 

980 X=IS-40 :rem 99 

990 GET#3,A$ : rem 105 

1000 A=ASC(A$+CHR$(0)):POKEX,A:X=X+1 :rem 42 
1010 IFA<>96THEN990 :rem 76 

1020 CLOSE3:GOTO340 : rem 118 

1030 REM :rem 168 

1040 REM{2 SPACES} SAVE ROUTINE : rem 254 

1050 INPUT" {CLR} FILE NAME";K$ :rem 24 

1060 U=IM+42:UH=INT(U/256):UL=U-256*UH : rem 239 
1070 INPUT"TAPE (T) OR DISK (D)"?A$ : rem 108 
1080 IFA$="T"THEN1160 : rem 137 

1090 OPEN15,8,15,"I0" :rem 65 

1100 OPEN3,8,1,"0:"+K$+",P,W" : rem 202 

1110 INPUT#15,EN,EM$ / ET,ES :rem 6 

1120 IFENTHENPRINT;EN,EM$,ET,ES:GOTO1240 : rem 21 
1130 POKE193,40:POKE194,195 :rem 243 

1140 POKE174,UL:POKE175,UH:SYS62957 :rem 115 
1150 CLOSE15:CLOSE3:GOTO650 :rem 148 

1160 0PEN3,1#1,K$ srem 130 

1170 FORX=IS-40TOIM+40 :rem 58 

1180 PRINT#3,CHR$(PEEK(X)); : rem 52 

1190 NEXT:PRINT#3 :rem 39 



U 
LI 
U 



L 



I ! 



106 



n 
n 



Recreations and Applications 2 



!— I 1200 CLOSE3:GOTO340 : rem 118 

1 I 1210 CL0SE1: INPUT "DO YOU WISH TO CONTINUE (Y/N)";D 

$ :rem 22 

r — , 1220 IFD$="Y"THEN620 :rem 93 

) I 1230 GOTO1260 : rem 200 

1240 CLOSE15:CLOSE3:INPUT"DO YOU WISH TO CONTINUE 

{ SPACE} (Y/N)";D$ : rem 49 

1—) 1250 IFD$="Y"THEN620 :rem 96 

' \ 1260 P0KEG,8:END : rem 180 
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Word Match 

Andy VanDuyne 



Hon; good is your memory? "Word Match," a 
]"""? memory game for the 64, will test your children's 

ability to remember short words. Suitable for 
grades K through 6, it can be modified for more 
difficult levels. 



Loosely adapted from the old TV show "Concentration," 
"Word Match" is designed to entertain and test the memory of 
one or two players. The object is to find and match pairs of 
words hidden behind rows of colored blocks. 

Word Match is easy to learn. Players take turns selecting 
blocks, which disappear to reveal the words they conceal. An 
unsuccessful match means it's the next player's turn. Players 
who successfully match a pair of words gain another turn, and 
the matched blocks turn into the player's own color. To win 
the game, a player must match more pairs of hidden words 
than the opponent. The opponent, by the way, can be either 
another person or the computer itself. 

Word Match is ideal for grade-school children because all 
the words are only three letters long. A total of 50 words are 
included in the program, in lines 32-34. You can customize 
the program with your own word list by amending those 
lines. It's best if you keep the number of words at 50. Just 
make sure that there are no spaces between the words (just as 
you see in lines 32-34), and that the lines do not exceed 80 
characters. To make the game suitable for older children, you 
may want to include some unusual three-letter words and use 
the game for a vocabulary builder, as well as a memory game. 



n Matching the Words 

Type the program in and save it. You'll find "The Automatic 
Proofreader" program in Appendix C an immense help in 
_ . entering Word Match, for the Proofreader makes it almost 

1 I impossible to enter a line incorrectly. 

When you first run Word Match, a two-screen instruction 
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display appears. After you've read the first screen, press the 
RETURN key to look at the second. (If you've played the 
game before and don't want to be bothered with the instruc- 
tions, just hit the N key.) Then you'll be asked for the players' ^ j 
names. After the second name is entered, the screen clears, and a ' — * 
message reminds you that the computer is selecting the words. 

Although Word Match was designed primarily for two i \ 

players, one person can compete against the computer by typ- > — ' 

ing 64 as a player's name when the program starts. 

An interesting twist is to enter the computer's name for 
both players and then watch the machine play itself. The com- 
puter, however, is not as smart as you might think. It picks its 
blocks completely at random. A young child can have fun in 
this mode without becoming discouraged by an unbeatable 
opponent. Usually an out-of-memory error results after several 
rounds, but sometimes the computer actually beats itself. 

If you make a mistake typing in the block numbers, just 
use the DEL key to erase your answer. Type in the number 
you really want and press RETURN. Notice, too, that the pro- 
gram does not accept numbers for blocks which have already 
been matched. 

Word Match 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

2 POKE53280,6:POKE53281,1:PRINTCHR$(147) :rem 67 

4 POKE254.0 :rem 90 

5 GOTO10 :rem 207 

6 F0RP=1T02E3 : NEXT: RETURN : rem 187 
10 DIMW$(12),W1$(6),C%(2),SQ%(12),SH%(12) :rem 41 
12 F0RN=1T012:READSQ%(N):NEXT :rem 67 
20 0=54272 :B=827 :rem 76 
22 S=54272:FORN=STO54295:POKEN,0:NEXT:POKEN,15 

:rem 120 I i 

24 POKES+5,15:POKES+6,255:POKES+2,0:POKES+3,8 ' — ' 

:rem 178 

25 C%(1)=2:C%(2)=5 :rem 87 

29 IFPEEK(254)=0THENGOSUB601 srem 190 

30 GOSUB701:PRINT"{CLR}{3 DOWNjO.K., "N$(1) m AND " 
N$(2)" " :rem 106 

31 PRINT" {2 DOWNjPLEASE WAIT WHILE THE SCREEN IS S I I 
ET UP-" :rem 186 < — ' 

32 W$="CARCATBOYHATHITTOPATEEATPITPATGOTHIMHERWHYH 
OWTINILLWHORUNYOUACEBEDINK : rem 193 

33 W$=W$+"AIMARTTOTTIEENDDOGPENWINNEWWONNOWPIGDADM j j 

OMOFFPALLAPEAREYETOECAPPAN :rem 78 
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34 w$=W$+"NOTTONTENDAYBID" : rem 127 

35 FORN=1TO50:POKEB+N,0:NEXT:FORN=1TO50 : rem 241 

36 Z=INT(RND(l)*50)+l:IFPEEK(B+Z)<>0THEN36:rem 213 

37 POKEB+Z,N:NEXT : rem 83 

38 F0RN=1T06:W1$(N)=MID$(W$,1+(PEEK(B+N)-1)*3,3):N 
EXT :rem 16 

39 C%(1)=2:C%(2)=5 : rem 92 

40 FORN=1TO12:POKEB+N,0:NEXT : rem 6 

41 F0RN=1T011STEP2 : rem 123 

42 Z=INT(RND(1)*12)+1:Y=INT(RND(1)*12)+1 :rem 227 

43 IFPEEK(B+Z)<>0ORPEEK(B+Y)o0ORZ=YTHEN42:rem 138 

44 P0KEB+Z,N:P0KEB+Y,N+1 : rem 221 

45 NEXT :rem 168 
47 FORN=1T012 :POKEB+N, INT( ( PEEK ( B+N) -1 ) /2 )+l :W$ (N) 

=W1 $( PEEK (B+N)): NEXT :remll7 

50 GOSUB500 :rem 122 

70 D$="{H0ME}{19 DOWN}":SP$="{39 SPACES}" : rem 40 
100 REM GAME :rem 143 

105 X=l :rem 92 

110 PRINTD$"{RED}WHICH BLOCKS, "N$(X)"?" : rem 226 
115 POKE53280,C%(X) : rem 5 

117 IFN$(X)="64"THENGOSUB1000 • re m 158 

120 PRINTD$"{DOWN}"SP$D$"{DOWN}{PUR}{RVS}BLOCK A? 
{BLK}{OFF}";:POKE198,0 :rem 190 

121 GOSUB901:I=VAL(AN$):GOSUB400:ON(I>12)+2GOTO120 
,124 :rem 161 

124 ON(PEEK(B+I)=0)+2GOTO120,135 : rem 12 

125 PRINTD$"{2 DOWN} "SP$D$" {2 DOWN} {BLU} {RVS} BLOCK 

B?{BLK}{OFF}"; :POKE198,0 : rem 105 

126 GOSUB901:J=VAL(AN$):GOSUB400:ON(J>12)+2GOTO125 
,129 :rem 178 

129 ON(PEEK(B+J)=0)+2GOTO125,130 : rem 18 

130 IFI=JTHEN125 : rem 186 

131 PRINTD$SP$SP$SP$SP$r :GOT0138 :rem 240 

135 FORN=lTO3:POKESQ%(I)+N+40+O,6:POKESQ%(I)+N+40, 
ASC(MID$(W$(I),N,1))-64:NEXT :rem 53 

136 ON(N$(X)="64")+2GOTO1040,125 :rem 173 

138 FORN=lTO3:POKESQ%(J)+N+40+O,6:POKESQ%(j)+N+40, 
ASC(MID$(W$(J),N,l))-64 :rem 194 

139 NEXT :rem 220 

140 IFPEEK(B+I)=PEEK(B+J)THEN200 : rem 123 

150 PRINTD$SP$D$TAB(15)"{RED}{RVS}NO MATCH-{OFF}": 
POKES+4,65:FORN=1TO30:POKES+1,80 :rem 196 

151 POKES+1 , 80-2*N :NEXT : POKES+1 , : POKES+4 , 64 

:rem 126 

152 GOSUB6:PRINTD$SP$ : rem 68 

153 I$=STR$(I):I$=RIGHT$(I$,LEN(I$)-1):J$=STR?(J): 
J$=RIGHT$(J$,LEN(J$)-1) : rem 112 

154 POKESQ% ( I )+41 , 32 :POKESQ% ( J)+41 , 32 :POKESQ% ( I )+4 
3,32:POKESQ%(J)+43,32 :rem 26 
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155 F0RN=1T0LEN(I$):P0KESQ%(I)+41+N,ASC(MID$(I$,N, I j 
1)):P0KESQ%(I)+41+N+0,4:NEXT : rem 98 < — > 

156 F0RN=1T0LEN(J$) :POKESQ%( J)+41+N,ASC(MID$( J$ ,N, 
1)):P0KESQ%(J)+41+N+0,4:NEXT : rem 103 , . 

160 IFX=1THENX=2:GOTO110 : rem 231 j I 

162 X=1:GOTO110 :rem 100 

200 REM RIGHTANS :rem 214 

205 PRINTD$SP$SP$D$"{15 SPACES} {BLK} { PUR} {RVS }MATC \ | 

HJUl{OFF}" : rem 135 '' — ' 

207 F0RN=1T05 : POKES+4 , 65 : FORZ=40TO80 : POKES+1 , Z :NEX 

TZ,N :rem 216 

210 POKES+1, 0: POKES+4, 64 : rem 126 

211 IFX=1THENS1=S1+1 : rem 185 

212 IFX=2THENS2=S2+1 : rem 189 
215 G0SUB6 :rem 78 
220 GOSUB802 :rem 174 
235 PRINTD$SP$ :rem 86 

237 CR=CR+1:IFCR=6THEN300 :rem 242 

238 POKEB+I,0:POKEB+J,0 :rem 90 
240 GOTO110 :rem 97 
300 F0RN=1T05 : POKES+4, 6 5 :FORZ=80TO30STEP-1 : POKES+1 

,Z:NEXTZ,N : rem 107 

302 POKES+1, 0: POKES+4, 64 : rem 128 

305 PRINTD$"THE GAME IS 0VER-":G0SUB6 : rem 193 

307 IFS1>S2THENPRINTD$SP$D$N$(1)" WINSlll":rem 159 

308 IFS2>S1THENPRINTD$SP$D$N$(2)" WINSlll":rem 161 

309 IFS2=S1THENPRINTD$SP$D$"IT'S A TIE III": rem 165 

310 G0SUB6:PRINTD$"{D0WN}WANT ANOTHER? (Y/N) " :P0KE1 
98,0 :rem 230 

311 GETA$ :IFA$="N"THENPRINT" {CLR} {BLU} " :POKEBK, 27 : 
END :rem 37 

312 IFA$="Y"THENRUN10 :rem 233 
314 G0T0311 :rem 102 
400 POKES+4 ,33: POKES+1 , 50 : F0RP=1 TO20 : NEXT : POKES+1 , 

0:POKES+4, 32: RETURN :rem 71 

500 REM DRAW SCREEN : rem 103 ( 

501 PRINT" {CLR} ":F0RN=1T04:PRINTTAB(9)" {BLK} {RVS} J j 

{19 SPACES}" :rem 188 

502 F0RZ=1T03 :rem 28 

503 PRINTTAB(9)" {RVS} {OFF} {5 SPACES }{ RVS } {OFF} 
{5 SPACES} {RVS} {OFF} {5 SPACES }{ RVS } {OFF}":NE 
XTZ,N :rem 167 

504 PRINTTAB(9)" {RVS}{19 SPACES}" :PRI NT" {HOME} 

{2 DOWN} {PUR}" :rem 185 I j 

505 F0RN=1T09STEP3 :rem 136 

506 PRINTTAB(12)NSPC(3)N+lSPC(3)N+2 : rem 42 

507 PRINT" {2 DOWN}":NEXT :rem 8 y . 

508 PRINT"{13 RIGHT}10{4 RIGHT}ll{4 RIGHT}12" ! I 

:rem 245 

509 RETURN :rem 126 
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600 REM INTRO :rem 6 

601 FORZ=1TO12:SH%(Z)=0:NEXT:FORZ=1TO12 : rem 198 

602 X=INT(RND(1)*12)+1:IFSH%(X)<>0THEN602 :rem 91 

603 SH%(X)=Z:NEXTZ :rem 108 

604 GOSUB501:POKES+4,65:FORZ=1TO11STEP2 :rem 190 

605 I=SH%(Z) :J=SH%(Z+1) :rem 20 

606 X=1:Q=C%(X):C%(X)=VAL(MID$("25",INT(RND(1)*2)+ 
1,1)):IFQ=C%(X)THEN606 : rem 7 

607 POKES+1,RND(1)*50+10:GOSUB802:POKES+1,0 

:rem 240 

608 NEXT :rem 221 

609 I=lsJ=12:C%(X)=l:GOSUB802 :rem 135 

619 PRINT" {HOME} {3 DOWN} "TAB( 11 ) " {BLKjWORD" :POKES+ 
1,30:FORP=1TO100:NEXT : rem 132 

620 PRINT" {HOME} {15 DOWN} "TAB( 23 ) "MATCH" :P0KES+1 ,2 
:rem 95 

621 FORP=lTO100:NEXT:POKES+l,0:POKES+4,64 :rem 16 

622 GOSUB6:GOSUB6:POKE254,255 :rem 12 

623 PRINT"{CLR}{2 DOWNjWOULD YOU LIKE INSTRUCTIONS 
? (Y/N)":POKE198,0 :rem 80 

624 GETA$:IFA$="Y"THENGOSUB1501:GOTO630 : rem 107 

625 IFA$="N"THEN630 :rem 40 

626 GOT0624 :rem 115 
630 RETURN :rem 121 

700 REM GET NAMES : rem 207 

701 DIMN$(2):PRINT"{BLU}{CLR}NAMES, PLEASE1" 

:rem 159 

702 PRINT" {HOME} {15 DOWNjTO PLAY AGAINST THE COMPU 
TER, ENTER" :rem 86 

704 PRINT" '64* AS A PLAYER." : rem 244 

706 PRINT " { HOME } { DOWN } " : FORN=lT02 : PRINT " { DOWN } PLAY 

ER"N; :INPUTN$(N) :NEXT:RETURN : rem 36 

800 REM PAINT SQUARES : rem 28 

802 Q=SQ%(I):R=SQ%(J) :rem 184 

804 F0RN=1T03 :rem 21 

806 FORW=QTOQ+4 : POKEW+O , C% ( X ) : POKEW , 160 : NEXT : Q=Q+4 

0:NEXT :rem 81 

808 F0RN=1T03 : rem 25 

810 FORW=RTOR+4:POKEW+0,C%(X) : POKEW, 160 :NEXT:R=R+4 

0:NEXT: RETURN :rem 106 

!""? 900 REM INPUT ROUTINE :rem 51 

- 901 POKE198,0:AN$="" : rem 53 

902 GETA$:IFA$=""THEN902 :rem 89 

n 903 IFA$=CHR$(13)THEN920 :rem 77 

i i 904 IFA$=CHR$(20)ANDLEN(AN$)>0THENGOSUB931:rem 242 

905 IFLEN(AN$)>1THEN902 : rem 73 

906 IFA$<"0"ORA$>"9"THEN902 :rem 206 
<"*" | 907 PRINTA$; :AN$=AN$+A$:GOTO902 :rem 72 
11 920 IFAN$=""THEN902 trem 40 

922 RETURN : rem 125 

i I 115 
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930 REM DELETE KEY :rem 28 , , 

931 AN$=LEFT$(AN$,LEN(AN$)-1) :rem 77 | 1 

933 PRINT" {LEFT} {LEFT}"; :rem 229 

939 RETURN : rem 133 

1000 REM 64 PLAYS :rem 152 ) I 

1005 I=INT(RND(1)*12)+1:ON(PEEK(B+I)=0)+2GOTO1005, ' — ' 

135 :rem 185 

1040 J=INT(RND(1)*12)+1:IFJ=ITHEN1040 :rem 100 , 

1050 IFPEEK(B+J)=0THEN1040 :rem 227 | ) 

1060 PRINTD$SP$D$"64 PICKS "I"AND" J" {LEFT} . " 

:rem 204 
1065 GOSUB6:GOT0138 :rem 145 

1500 REM INSTRUCTIONS :rem 95 

1501 PRINTCHR$(14)CHR$(147) : rem 249 

1502 PRINT"{BLK}{2 SPACES }WORDS WILL BE HIDDEN BEH 
IND BLOCKS" :rem 11 

1503 PRINT"ON THE SCREEN. ENTER THE BLOCK NUMBER," 

:rem 69 

1504 PRINT "AND THE WORD WILL BE UNCOVERED. YOU" 

:rem 160 

1505 PRINT"MAY UNCOVER TWO WORDS DURING EACH TURN. 

:rem 127 

1506 PRINT" {DOWN} {2 SPACES }IF THE TWO WORDS MATCH, 

THE BLOCKS" :rem 95 

1507 PRINT "WILL BE FILLED WITH YOUR COLOR, AND YOU 

:rem 19 

1508 PRINT"HAVE ANOTHER TURN. IF THEY DON'T MATCH, 

:rem 137 

1509 PRINT"THE WORDS ARE COVERED UP AGAIN AND THE" 

:rem 169 

1510 PRINT"OTHER PLAYER GETS A TURN." : rem 210 

1512 PRINT" {DOWN} {3 SPACES }THE GAME IS OVER WHEN A 
LL OF THE" :rem 127 

1513 PRINT"BLOCKS ARE COLORED IN. THE PLAYER WHO" 

:rem 26 

1514 PRINT "HAS FOUND THE MOST MATCHES IS THE 

{19 SPACES} {DOWN}** WINNER **" :rem 166 I \ 

1515 GOSUB1600: :rem 77 * — > 

1516 PRINT"{CLR}{2 DOWN} {3 SPACES} TELL THE COMPUTE 
R WHICH BLOCK TO" : rem 213 

1517 PRINT "UNCOVER BY TYPING A NUMBER (1-12) AND" ) I 

rreni 38 

1518 PRINT "PRESSING RETURN. ^F YOU MAKE A MISTAKE, 

:rem 190 i | 

1520 PRINT"YOU MAY USE THE ' DEL ' KEY TO CHANGE" i — » 

:rem 32 

1521 PRINT"YOUR ANSWER. PRESS THE {RVS} RETURN {OFF} 

KEY WHEN" Tre*m 116 if 

1522 PRINT"YOU ARE FINISHED WITH YOUR ANSWER." 

:rem 67 
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1523 PRINT" {2 DOWN} {4 SPACES }IF YOU CAN'T FIND ANO 
THER PERSON" : rem 32 

1524 PRINT"WITH WHOM TO PLAY THE GAME, YOU MAY" 

: rem 248 

1525 PRINT"PLAY AGAINST THE COMPUTER. JUST ENTER" 

:rem 157 

1526 PRINT"' 64' AS ONE OF THE PLAYERS' NAMES." 

:rem 44 

1527 PRINT "THE COMPUTER ISN'T VERY SMART, BUT YOU" 

:rem 182 

1528 PRINT"CAN HAVE FUN PRACTICING." :rem 146 

1529 GOSUB1600:PRINTCHR$(147)CHR$(142) :RETURN 

:rem 208 
1600 PRINT" {3 DOWN}TOUCH {RVS} RETURN {OFF} TO CONTI 

NUE....":POKE198,0 :rem 121 

1602 GETA$:IFA$<>CHR$(13)THEN1602 :rem 100 

1604 RETURN : rem 171 

2000 DATA1115, 1121, 1127, 1275, 1281, 1287, 1435, 1441,1 

447,1595,1601,1607 : rem 86 



117 



u 

u 

Connect the Dots u 

Janet Arnold \ j 

"Connect the Dots" is an entertaining graphics 

program for young children who can locate num- < | 

hers and letters on the keyboard. You can even > — ' 
add new drawings of your own. 



As teachers at a small private school, my husband and I saw 
many children anxious to get their hands on our computer 
whenever we brought it to class. Unlike many adults, who are 
hesitant to use it or even refuse to touch it altogether, the chil- 
dren jockeyed for their turn at even the dullest programs we 
loaded. 

I wrote "Connect the Dots" to provide my own children 
and my preschool/kindergarten students with a game that 
could entertain while reinforcing their skills at the same time. 

Making Dots into Pictures 

Here's how it works. The child is given a four-item menu from 
which to choose the picture he or she wishes to draw. The 
greater the number of dots, the longer it takes to complete the 
picture. 

A grid appears on the screen. Some of the squares contain 
markings. Tell the child to look for the solid dot, because 
that's what must be matched with the coordinates. When the 
prompt Number? appears at the top, show the child how to 

press the correct number coordinate and hit RETURN. | j 

Answering the next prompt, Letter?, will probably take longer 
unless the child is familiar with the keyboard. 

A wrong number-letter combination is answered with a ] [ 

low "uh-oh" sound and the words Try again. 

After a correct answer, the computer draws a line 
connecting the dots and plays an amusing sound effect. A j! 

short timing loop delays this just long enough for the child to 
look from the keyboard back to the screen to enjoy this reward. 

The finished drawing is accompanied by a short tune and j ( 
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pf the remark, Good job! Draw again? Hitting a Y calls up the 
' menu again. An N ends the program. 
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Working with Your Child 

When introducing this activity to a child, a few additional 
explanations may be necessary. Be sure to explain the dif- 
ference between the number — point out the slash — and the 
letters O and Q. 

A tot whose visual discrimination is immature might re- 
verse letters. Connect the Dots can give that child enjoyable 
practice in overcoming this. If you notice a child confusing 7 
and L, for instance, ask, "Is that line walking on the ceiling or 
on the floor?" 

Of course, preschoolers and some kindergartners who are 
still learning their numbers and letters will enjoy naming them 
aloud to you. 

Children with short attention spans should try the pic- 
tures with fewer dots. Even then, be prepared to help them 
along or to complete it for them. This isn't necessarily bad, be- 
cause the time spent with children at the computer can enrich 
your relationship and will tell them that their activities are im- 
portant to you. 

There's no time limit in Connect the Dots, so don't rush 
your child. This will be a welcome relief to the child who 
equates computers with tense, timed, shoot-or-be-shot action. 

If some children's eyes have trouble following the grid 
from the dot to the coordinates, show them how to trace with 
their fingers directly on the screen. 

Details of the Program 

It's important to type this program exactly as shown. 

The fourth selection on the menu is a heart inscribed with 

my children's names. Substitute your own message by chang- 
_ ing lines 780-800. 
! I Following is a line-by-line program description, giving the 

starting line number of each section: 

1—7 Line Function 

L * 100 Title and instructions 

300 Menu 

,_, 370 Draw grid 

i ( 440 Search DATA for starting point of chosen picture 
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490 


Read four pieces of DATA per dot and POKE dot 


U 


520 


Ask for dot's coordinates 


550 


Response for wrong answer 




610 


Response for right answer 




650 


Set up butterfly 


Li 


690 


Set up mushroom 




730 


Set up dog 




770 


Set up heart 


U 


830 


Response for completed picture 


1000 


DATA for butterfly 




1090 


DATA for mushroom 




1140 


DATA for horse 




1200 


DATA for heart 





Designing Your Own Pictures 

Part of the fun of this program is designing your own pictures. 
My five-year-old, Jonathan, contributed the mushroom found 
in Connect the Dots by coloring in squares of graph paper. 

To substitute a picture of your own, design one using the 
accompanying grid. Remember that most of your design 
should consist of a continuous line as in dot-to-dot pictures. 
Anything else must be POKEd in when the picture is first set 
up. 

Grid for Designing Pictures 
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For the purposes of this article, let's assume that you've 
drawn a clown to replace the dog in the listed program. Sub- 
stitute the title CLOWN for HORSE in line 330. This changes 
the menu to read C-CLOWN. 

Lines 730-750 POKE in the horse's tail and a starting 
square (SQ). Use these lines to POKE in your clown's nose, for 
example. (Hint: Since children are always asked the co- 
ordinates of a solid dot, use an open O or you will confuse 
them.) 

To compute the screen memory location of the nose, add 
the four-digit row number to the left of the grid to the column 
number above the grid. This same number + CD is your color 
memory location. 

POKE in your starting square — use screen code 160, a re- 
versed space — and assign SQ the value of the screen memory 
location of that starting square. 

Now just figure your DATA. The computer reads four 
pieces of data per dot: screen memory location (A), color of 
the line to be drawn (B), number-letter coordinates of the dot 
(E$), and the direction that the line will travel to reach the dot 
(S). Figure each as follows: 

First, compute the screen memory location of the dot as 
explained earlier. 

The second number is the color code of the line to be 
drawn. The color code is always the number of the color's 
computer key minus 1 (black=0, red=l, and so on). Appen- 
dix G in the Commodore User's Guide, the manual that came 
with your computer, lists these color values. 

Third, look at your grid to find the number-letter co- 
ordinates of the dot. The number comes first and is found on 
the right side of the grid. Follow this with the letter. Do not 
separate the number and letter with a space. 

The last number is a STEP value. This number tells the 
computer in which direction the line should be drawn. For in- 
stance, a line moving from left to right travels one space at a 
time, so its STEP value is 1. From right to left, the line moves 
backwards one space at a time, making its STEP value —1. A 
line traveling diagonally up to the left has a STEP value of 
—41 on the Commodore 64 since the computer skips back 41 
fmm. , spaces before POKEing the next square. 
L.j Use this diagram to figure STEP values. 
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Figure each dot's DATA in the same manner. Separate 
each piece of DATA with a comma. You must insert your new 
DATA into the proper line numbers, so check the program 
explanation listed earlier. Since you are replacing the horse 
with your clown, your DATA will go in lines 1140-1180. Be 
sure to leave the first piece of DATA, C, in line 1140. This is 
the DATA that the computer searches for to set the DATA 
pointer. Notice that the last set of DATA for every drawing is 
0, 0, 0, 0. Make sure this also ends any new drawings you 
may add. 



Connect the Dots 

For mistake-proof program entry, be sure to use 



The Automatic Proofreader," Appendix C. 



100 REM TITLE PAGE : rem 20 

110 PRINT"{CLR}g78":POKE53280,0:POKE53281,0:rem 31 
120 PRINTS PC ( 10 ) " QQQ { 3 SHIFT-SPACE }QQ 

{2 SHIFT-SPACE TqQQQQ { 2 SHIFT-SPACE }QQ" :rera 40 
130 PRINTSPC( 10 )"Q{ SHIFT-SPACE} Q{ SHIFT-SPACE }Q 

{2 SHIFT-SPACE }Q{ 2 SHIFT-SPACE} Q{ SHIFT-SPACE} 
{ SHIFT-SPACE }Oj2 SPACES }Q" :rem 180 

140 PRINTSPC(10)"Q { SHIFT-SPACE }Q{ SHI FT-SPACE}Q 

{2 SHIFT-SPACE }Q{ 2 SHIFT-SPACE} Q{ SHIFT-SPACE } 
{2 SHIFT-SPACETQ" :rem 132 

150 PRINTSPC(10)"Q {SHIFT-SPACE }Q{ SHIFT-SPACE }Q 

{2 SHIFT-SPACE }Q{ 2 SHIFT-SPACE} Q{ SHIFT-SPACE} 

{2 SPACES} {2 SHIFT-SPACE }Q" :rem 133 

160 PRINTSPC( 10 )"Q{ SHIFT-SPACE} Q{ SHIFT-SPACE }Q 

{2 SHIFT-SPACE }Q{ 2 SHIFT-SPACE} Q{ SHIFT-SPACE} 

{2 SPACES }Q{ 2 SHIFT-SPACE }Q" :rem 87 
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170 printspc(10)"qqq{2 shift-space} qq 

{3 shift-spaceT~Q {shift-space} Tshift-spaceJq 

q" :rem 233 

180 L=1114tC=55386tCD=54272tWV=54276 :rem 220 

190 A$="Z"tPOKE54296,15tPOKE54277,22tPOKE54278,165 

•GOSUB840 trem 114 

200 t trem 204 

,— , 210 REM INSTRUCTIONS : rem 44 

i \ 220 PRINTSPC(13)"{2 DOWN} {WHT} INSTRUCTIONS : " 

:rem 22 

230 PRINTSPC(9)"(DOWN}WHEN THE GRID APPEARS, " :PRIN 

TSPC(10)"FIND THE SOLID DOT." :rem 141 

240 PRINTSPC(9)"{DOWN}TYPE THE NUMBER OF THE":PRIN 

TSPC(10)"ROW AND HIT RETURN." :rem 171 

250 PRINTSPC(6)" {DOWN} THEN TYPE THE LETTER OF THE" 

:rem 126 
260 PRINTSPC( 9) "COLUMN AND HIT RETURN." :rem 109 
270 PRINTSPC(10)"{2 DOWN} {RVSj HIT ANY KEY TO PLAY. 
"tPOKE198,0 :rem 90 

280 GETS$:IFS$=""THEN280 :rem 123 

290 : trem 213 

300 REM DRAW SELECTION trem 75 

310 POKE53281,6:PRINT"{CLR}"SPC(6)"{5 DOWN}g3iWH 

AT WOULD YOU LIKE TO DRAW?" trem 83 

320 PRINTSPC(8)"§73{3 DOWN}A - BUTTERFLY (22 DOT 

S)" trem 192 

330 PRINTS PC (9 )"{ DOWN} B - MUSHROOM (12 DOTS)"tPRIN 

TSPC(ll)"{DOWN}C - HORSE (20 DOTS)" trem 82 

340 PRINTSPC(10)" {DOWN}D - HEART (10 DOTS) " :POKE19 

8,0 trem 73 

350 GETA$tIFA$<"A"ORA$>"D"THEN350 trem 95 

360 t trem 211 

370 REM DRAW BOARD trem 20 

380 PRINT"{CLR}g3i"SPC(ll)"{2 DOWNjABCDEFGHIJKLM 

NOPQR{HOME}" trem 210 

_ 390 FORRH=lTO18:FORT=lTO18tPOKEL+T+RH*40,79tPOKEC+ 

I J T+RH*40, 14 t NEXT t NEXT trem 170 

400 PRINTSPC(11)"§3|{20 DOWNjABCDEFGHIJKLMNOPQR" 

: rem 19 

410 PRINT" {HOME} {3 DOWN}&73"; trem 129 

420 F0RI=1T018 1 PRINTSPC ( 8 ) RIGHT? ( STR$ ( I ) , 2 ) SPC ( 19 ) 

"&G3"RIGHT$(STR$(I),2) tNEXT trem 137 

(— . 430 t trem 209 

] \ 440 REM FIND DATA trem 183 

450 RESTORE trem 189 

460 READB$tIFB$<>A$THEN460 trem 243 

<— 1 470 ONASC(A$)-64GOTO650, 690,730, 770 trem 139 

I \ 480 FORT=1TO500 tNEXT : rem 246 

490 READA,B,E$,StIFA=0THEN830 trem 189 

r— ) 
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500 P0KEA,81:P0KEA+CD,B :rera 100 , , 

510 PRINT" {HOME} {39 SPACES}" :rem 122 | | 

520 PRINT" g7§ {HOME} (■*) NUMBER" ; :GOSUB930:N$=IN 

$ :rem 195 

530 PRINT"{HOME}"SPC(20)"(t) LETTER"; :GOSUB930:L$= j i 

IN$ :rem 11 '*=-' 

540 IFE$=N$+L$THEN610 :rem 161 

550 PRINT" {HOME} {BLK}{ 15 SPACES} TRY AGAIN , j 

{10 SPACES}" :rem 109 LJ 

560 POKECD, 48 : POKECD+1 , 11 : POKEWV, 33 : POKEWV, 32 

:rem 18 
570 FORT=1TO400 : NEXT s POKECD, 195 : POKECD+1 , 16 : POKEWV 

,33: POKEWV, 32 :rem 222 

580 FORT=1TO400:NEXT :rem 246 

590 F0RT=1T01 200: NEXT :GOTO510 :rem 47 

600 : :rem 208 

610 FORT=1TO700 : NEXT : F0RT=1T018 : POKESQ, 160 : POKESQ+ 

CD,B:IFSQ=ATHEN630 :rem 146 

620 SQ=SQ+S:NEXT :rem 20 

630 POKEWV, 17 :FORZ=9T026: POKECD+1, Z: POKECD, 0: NEXT: 

POKEWV, 16 :GOTO480 :rera 84 

640 : :rem 212 

650 POKE1242,77:POKE1242+CD,0:POKE1244,78:POKE1244 

+CD,0 :rem 126 

660 POKE1283,160:POKE1283+CD,5 :rem 166 

670 SQ=1283:GOTO480 :rem 91 

680 : :rem 216 

690 POKE1563,160:POKE1563+CD,4:POKE1564,160:POKE15 

64+CD,4 :rem 241 

700 POKE1717,160:POKE1717+CD,5 :rem 165 

710 SQ=1717:GOTO480 :rem 88 

720 : :rem 211 

730 POKE1436 , 74 : POKE1436+CD, : POKE1437 , 75 : POKE1437 

+CD,0 :rem 137 

740 POKEi397,85:POKE1397+CD,0 :rem 130 

750 POKE1208,160:POKE1208+CD,2:SQ=1208:GOTO480 1 . 

:rem 146 |_J, 
760 : :rem 215 

770 PRINT" {HOME} {7 DOWN}" :rem 249 

780 PRINTSPC(16)"{GRN}MATTHEW" : rem 70 

790 PRINTSPC(16)"{2 DOWN} g7l JONATHAN" :rem 30 
800 PRINTSPC(17)"{2 DOWN} g3|EMILY" :rem 64 

810 POKE1283,160:POKE1283+CD,2:SQ=1283:GOTO480 

:reni 152 
820 : :rem 212 

830 PRINT "{HOME} {10 SPACESjGOOD JOB1 DRAW AGAIN? 

{3 SPACES}" :rem 113 

840 READB$:IFB$<>"Z"THEN840 :rem 48 

850 READPL, PH, D: IFPL=-1ANDA$="Z"THENP0KEWV, : RETUR 

N :rem 29 
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860 IFPL=-lTHENPOKEWV,0tGOTO890 :rem 223 

870 POKECD, PLtPOKECD+l ,PHt POKEWV, 33 tFORT=lTOD*75 tN 

EXT:POKEWV,32 trem 85 

880 GOTO850 :rem 118 

890 GETY$tIFY$o"Y"ANDY$O"N"THEN890 :rem 135 

900 IFY$="Y"THEN310 :rem 66 

910 : trem 212 

P— , 920 PRINT" {CLR}" ; :END trem 75 

I i 930 PRINT"? "j:IN$="" :rem 93 

940 PRINT" {RVS} {OFF} {LEFT} " ; :rem 234 

950 GETA$:IFA$=""THEN940 trem 94 

960 ZL=LEN(IN$) tIFA$=CHR$(20)ANDZLTHENPRINTA$; t IN$ 

=LEFT$ ( IN$ , ZL-1 ) trem 30 

970 IFA$=CHR$(13)ANDZLTHENPRINT" "tRETURN trem 26 

980 IF(A$<"0"ORA$>"R")OR(A$>"9"ANDA$<"A")ORLEN(IN$ 

)=2THEN950 trem 67 

990 PRINTA$;tIN$=IN$+A$tGOTO940 trem 92 

1000 t trem 251 

1010 DATA A, 1403,5,71, 40, 1247, 2, 3M, -39 trem 119 

1020 DATA 1249,2,30, 1,1331, 2, 5Q, 41, 1491, 2, 9Q, 40, 15 

69,2,110,39,1651,7,130,41 trem 236 

1030 DATA 1731, 7, 15Q,40, 1770, 7, 16P, 39, 1767, 7 

trem 189 
1035 DATA 16M, -1,1603, 7, 121, -41, 1759, 7, 16E, 39 

trem 229 

1040 DATA 1756,7,16B,-1,1715,7,15A,-41,1635,7,13A, 

-40, 1557, 7, 11C, -39 trem 69 

1050 DATA 1475, 2, 9A, -41 trem 115 

1060 DATA 1315,2,5A,-40,1237,2,3C,-39,1239,2,3E,1, 

1403,2,71,41,1683,5,141,40 trem 216 

1070 DATA 0,0,0,0 trem 38 

1080 t trem 3 

1090 DATA B, 1722, 5, 15H, 1,1562, 4, 11H, -40, 1559, 4, HE 

,-l,1519,4,10E,-40 trem 75 

1100 DATA 1441, 4, 8G, -39 trem 118 

1110 DATA 1446, 4, 8L, 1,1528, 4, 10N, 41, 1568, 4, UN, 40, 

1565, 4, UK, -1,1725, 4, 15K, 40 trem 53 

1120 DATA 1730, 5, 15P, 1,1722, 5, 15H, -1,0, 0,0,0 

trem 118 

r~? 1130 t trem 255 

. ! 1140 DATA C, 1364, 2, 6J, 39, 1359, 2, 6E, -1,1398, 2, 7D, 39 

,1598,2,12D,40,1680,2,14F,41 trem 111 

__ 1150 DATA 1681, 2, 14G, 1,1641, 2 trem 154 

I | H55 DATA 13G,-40,1600,2,12F,-41,1560,2,11F,-40,15 

64,2,11J,1 trem 168 

1160 DATA 1687, 2, 14M, 41, 1688, 2, 14N, 1,1608, 2 

f—| trem 123 

L.J 1165 DATA 12N,-40,1567,2,HM,-41,1407,2,7M,-40 

trem 14 

r— i 
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1170 DATA 1329, 2, 50,-39, 1331,0, 5Q, 1, 1291,0, 4Q, -40, 

1290, 0,4P, -1,1208, 2, 2N, -41 :rem 244 

1180 DATA 0,0,0,0 :rem 40 

1190 : srem 5 

1200 DATA D, 1160, 2, IF, -41, 1157, 2, 1C, -1,1235, 2, 3A, 3 ) ( 

9, 1475, 2, 9A, 40, 1803, 2, 171, 41 :rem 56 ' — 

1210 DATA 1491, 2, 9Q, -39, 1251, 2, 3Q, -40, 1169, 2, 10, -4 

1, 1166, 2, 1L, -1,1283, 2, 41, 39 :rem 47 ^ , 

1220 DATA 0,0,0,0 :rem 35 | j 

1230 : j rem 

1240 DATA Z, 195, 16, 3, 31,21,1, 30,25,2, 135,33,2 

:rem 169 
1250 DATA 30,25,2, 31,21,2, 195,16,2, 31,21,2, 30, 

25,3, 31,21,1 :rem 233 

1260 DATA 195,16,2 :rem 115 

1270 DATA 143,12,2, 195,16,1 :rem 36 

1280 DATA 0,0,3, 195,16,1, -1,0,0 :rem 205 



126 



i | 



U 



o 



U 
U 



n 
n 
n 



n 



Word Scramble 



r~i Mike Salman 

I \ 



Match wits with an opponent in this game as you 
play against time. For two or more players. 



"Word Scramble" is a bit different from other jumbling games 
you might have played. Instead of the computer giving you 
letters to unscramble, your opponent chooses the word you'll 
be trying to piece back together. Because the players select the 
words, the variety is almost limitless. 

A Three-Minute Puzzle 

As soon as you've typed in and saved Word Scramble (make 
sure you use "The Automatic Proofreader" program, found in 
Appendix C, to help you type in the game), you're ready to 
try to stump your opponent. Although the game is designed 
for two players, you can make up teams if there are more who 
want to play. The computer asks for the players' names and 
then tells player one to enter a word (maximum of ten letters). 
If you enter a word longer than ten letters, a message will re- 
mind you that it's not allowed. Just move the blinking square 
(the cursor) to the end of the word, and press the DEL key to 
erase the word. Then you can type in another, this one less 
than ten letters. 

When the word has been scrambled, player two presses 
( *_ the space bar to see the jumbled letters. He or she has only 

/ ( three minutes to put the letter back into order. 

At the top of the screen, you'll see a display of the 
elapsed time. Below the mixed-up letters, you should see a 
/_ t bar. That's where you'll type the first letter of the word. If you 
type the wrong letter, you hear a buzz. Type the right one and 
you hear a beep; the letter then appears on the screen. 
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A Ten-Point Penalty 

If you find the word within the three-minute time limit and 
have made no wrong guesses, you're rewarded with 50 points. 
For every wrong guess that you make, you lose ten points. A 



127 



3 Education 



scoreboard is displayed every second turn so you'll know 
when both players have played an equal number of turns. 
When you want to quit playing, just press the RUN/STOP 
and RESTORE keys at the same time. 
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Word Scramble 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

1 POKE53280,6:POKE53281,1 : rem 141 

5 SN=54272 : rem 23 

6 POKESN+24 , 15 : POKESN+5 , 17 : POKESN+6 , 240 : POKESN, 100 

: rem 27 
10 PRINT" {CLR)": PRINT" {RED} {9 DOWN) {13 RIGHT }WORD 

{SPACE} SCRAMBLE" : rem 131 

20 GOSUB1000: PRINT" {CLR}" : rem 65 

25 PRINT" {RED} {2 DOWN} EACH PLAYER TAKES A TURN ENT 

ERING A{5 SPACES} COMMON "; : rem 247 

30 PRINT"WORD (A MAXIMUM OF 10 LETTERS)." : rem 103 
35 PRINT" {DOWN} THE COMPUTER WILL THEN SCRAMBLE THE 
WORD"; :rem 162 

40 PRINT"AND PRINT IT." : rem 96 

45 PRINT" {DOWN} YOU HAVE THREE MINUTES TO FIND IT." 

: rem 152 
50 PRINT" {DOWN} IF FOUND WITHIN THE ALLOTTED TIME, 

{SPACE} YOU" :rem 183 

55 PRINT"WILL BE GIVEN 50 POINTS." : rem 227 
60 PRINT" {DOWN} FOR EVERY WRONG GUESS THAT YOU MAKE 

, YOUWILL LOSE 10 POINTS . {BLU} " : rem 57 

65 PRINT "{3 DOWN} {7 RIGHT} {RVS} { PUR} PRESS SPACE BA 

R WHEN READY{OFF}" : rem 239 

70 IFPEEK(197)<>60THEN70 :rem 131 

75 POKE198,0 :rem 153 

80 PRINT" {CLR} {4 DOWN} {GRN} PLAYER # l'S NAME{BLU}" 

:INPUTP$(0) :rem 200 

85 PRINT"{3 DOWN} {PUR} PLAYER # 2*S NAME {BLU}" :INPU 

TP$(1) :rem 169 

90 PRINT" {CLR} {16 DOWN} {RED} " ;P$ (C) ;" , ENTER WORD 

{SPACE} TO BE SCRAMBLED: {OFF} {BLU}" : rem 67 

92 W$=" M :INPUTW$:IFW$=""THENPRINT"{UP}"; :GOT092 

:rem 27 

93 IFW$="QUIT" THEN 410 :rem 254 

94 V1=LEN(W$) :rem 220 

95 IFV1>10THENPRINT"{RVS}{GRN}NO MORE THAN 10 LETT 

ERS PLEASE {OFF} {BLU} ":GOSUB 990:GOTO90 :rem 117 \ I 

96 FOR K=l TO VI :V2$=MID$ (W$,K, 1 ) : V2=ASC( V2$ ) ^ 

:rem 205 

97 IFV2<65ORV2>90THENPRINT"{RVS}{GRN}LETTERS ONLY i i 
{ SPACE} PLEASE {OFF} {BLU }":GOSUB 990 :GOTO 90 1 I 

:rem 54 
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98 NEXT :rem 176 

100 GOSUB200 :rem 163 

110 GOSUB300 «rem 165 

120 T(C)=T(C)+S(C) srem 178 

130 GOSUB400:FORI=1TO10:B$(I)="":NEXT : rem 184 
140 GOTO90 srem 55 

200 F0RI=1T0LEN(W$) srem 126 

210 A$(I)=MID$(W$,I,1) srem 107 

220 NEXT srem 211 

230 C$=""sFORI=lTOLEN(W$) srem 163 

240 R=INT(RND(1)*LEN(W$)+1) srem 248 

250 IFB$(R)<>""THEN240 srem 178 

260 B$(R)=A$(I) srem 221 

270 NEXT :rem 216 

271 FORI=lTOLEN(W$)sC$=C$+B$(I) sNEXT : rem 111 

272 IFC$=W$ANDLEN(W$)<>1THENF0RI=1T0LEN(W$) :B$(I)= 
"" :NEXT:GOTO230 :rem 201 

275 PRINT"{CLR}{5 DOWN} {8 SPACES } {RVS} {RED} WORD HA 
S BEEN SCRAMBLED. {OFF} {BLU}" : rem 35 

280 POKE 198,0 sPRINT" {6 DOWN} {7 SPACES} {GRN} PRESS 

{SPACE} SPACE BAR WHEN READY { BLU }" : rem 234 
285 IFPEEK(197)<>60THEN285 srem 243 

290 PRINT"{CLR}{5 DOWN} {15 RIGHT}"; :rem 66 
295 FORI=lTOLEN ( W$ ) : PRINT " { RED } " ; B$ ( I ) ; sNEXT 

:rem 162 

298 POKE198,0: RETURN srem 234 

300 X=95:S(C)=50 srem 89 

310 TI$=" 000000" srem 246 

320 PRINTs PRINT sPRINT sPRINT srem 119 

325 SC=1399sCC=SC+54272 srem 5 

330 FORI=lTOLEN(W$) srem 130 

335 POKESC,99sPOKECC,2 srem 75 

340 GETC$ srem 222 

350 PRINT" {HOME} {RVS} {9 RIGHT} "MID$(TI$, 4,1 ) " 

{OFF} MINUTES {2 SPACES } {RVS } "RIGHT$ (TI $,2) " 

{OFF} SECONDS" srem 100 

fn 355 IFTI$="000300"THENGOSUB500sGOTO390 srem 228 

'- .' 360 IFC$=""THEN340 srem 214 

365 PRINT" {4 DOWN}" srem 179 

i 370 IFC$=A$(I)THENPRINTTAB(X)A$(I);sBY=50sLN=50sGO 

i I SUB600sGOTO380 srem 141 

375 IFS(C)<10THENGOSUB550sGOTO390 srem 10 

378 IFC$OA$(I)THENS(C)=S(C)-10:BY=20sLN=120sGOSUB 

/— i 600sGOTO335 srem 79 

[X 380 X=X+lsSC=SC+lsCC=CC+lsNEXT srem 59 

390 RETURN srem 124 

400 IFC<>lTHENC=ls RETURN srem 11 

P"! 410 PRINT"{CLR}{5 D0WN}{17 RIGHT} {RED} {RVS } SCORES 

{OFF} {BLU}" srem 233 

420 PRINT" {17 RIGHT} g6 T§" srem 38 
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430 PRINT" {DOWN} {10 RIGHT} "P$(0) ;TAB( 25) ;P$( 1 ) 

:rem 139 
440 PRINT"{9 RIGHT}"T(1);TAB(24);T(0) : rem 29 

445 PRINT "{9 DOWN} {13 RIGHTJPRESS {RVS}Q{OFF} TO 

{SPACEjQUIT" :rem 232 

447 PRINT "{6 RIGHT }OR ANY OTHER KEY TO CONTINUE" 

:rem 26 
450 C=0:GET R$:IF R$="" THEN 450 :rem 97 

455 IF R$="Q" THEN END :rem 123 

460 RETURN : rem 122 

500 PRINT"{CLR}{4 DOWN} {12 RIGHT} {RVS} {RED} YOUR TI 

ME IS UP{OFF}{BLU}" :rem 55 

510 PRINT "{2 DOWN} {10 RIGHT }WORD WAS "W$" . " :S (C)=0 

:rem 77 
520 FORT=1TO5000:NEXT: RETURN :rem 59 

550 PRINT"{RVS}{RED}{2 DOWN} {9 RIGHT} YOU RAN OUT O 

F POINTS { OFF }{BLU}" : rem 185 

560 PRINT"{2 DOWN}{PUR}{10 RIGHT}WORD WAS {BLU}"W$ 

:rem 127 
570 FORT=1TO2000 :NEXT :rem 35 

580 RETURN :rem 125 

600 POKESN+1 , BY : POKESN+4 , 33 : FORQQ=lTOLN :NEXT : POKES 

N+4, 32: RETURN : rem 127 

990 FOR DELAY=1 TO 500:NEXT :rem 23 

1000 FORBY=50TO20STEP-1:LN=20:GOSUB600 :NEXT:FORI=l 

TO500:NEXT :rem 73 

1010 RETURN :rem 162 
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Turtle Graphics 
Interpreter 

Irwin Tillman 

This comprehensive three-program package gives 
your 64 full turtle-graphics capabilities. It's an ex- 
cellent learning tool for children, and it offers a 
new graphics capacity for all ages. For disk or 
tape users. 



Turtle geometry is fast becoming the first exposure to comput- 
ers for many children. Instead of printing their names on the 
screen, they are more likely drawing squares and triangles. 
While such facilities are generally found with specific lan- 
guages (such as PILOT and Logo), the concept of turtle 
geometry is not unique to any single language. It can just as 
easily be used with BASIC, the language of your Commodore 
64. One of the reasons for turtle graphics's popularity is that 
it's not only a natural introduction to computing, but also an 
excellent tool to teach thinking. 

If you're not familiar with turtle graphics, the basic con- 
cept involves moving a turtle around the screen, leaving a trail 
as it goes. This is done through a series of English commands, 
such as FORWARD and RIGHT. Other commands control the 
color scheme, define loops, and allow you to assemble a series 
of commands into procedures. 

Coordinating the Turtle Programs 

"Turtle Graphics Interpreter" consists of three programs de- 
signed originally for use with a disk drive; if you are using a 
tape drive, be sure to read the appropriate section elsewhere 
in this article. 

Program 1, "Interpreter," does most of the work. It ac- 
cepts and executes the commands you enter. Program 2, "Tur- 
tle Data," POKEs in the shape tables for the turtle sprites and 
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a number of machine language routines. Finally, Program 3, , , 

"Turtle Boot" runs the whole package. LJ 

If you use "The Automatic Proofreader" from Appendix 
C, typing in these programs will be much easier. Designed to 
insure error-free programs, the Proofreader makes it almost 
impossible to enter a program incorrectly. This is important, 
especially with Program 2. If you mistype that program, the 

machine language routines which are part of it may crash the 'j ) 

computer when the Interpreter is run. 

Type in each program separately, saving them all on the 
same disk (or tape — refer to the section later in this article for 
tape use instructions). Save all three programs before you try 
to run any of them. This is important: When you save Programs 
1 and 2, type SAVE "TURTLE GRAPHIC 1",S and SAVE "TUR- 
TLE GRAPHIC 2", 8. The programs must be saved out under 
those filenames for Program 3, Turtle Boot, to properly access 
them. If you want to change the filenames, then make sure 
lines 150 and 170 in Program 3 reflect those changes. 

One final note about entering the turtle graphics pro- 
grams. When you type in Program 3, leave out the CHR$(31) 
in line 140 until you're sure everything is working right. This 
will make the operation of the Boot program visible. When 
you are sure that the Boot is loading and running Turtle Data 
and the Interpreter, reinsert the CHR$(31). 

Once you have all three programs saved to tape or disk, 
load and run the Boot program to run the whole package. 

Turtle Commands 

The Interpreter recognizes 30 commands, some of which can 
be abbreviated. In addition, the CLR/HOME key will clear the 
text portion of the screen and home the cursor (regardless of 
whether the SHIFT key is pressed). Pressing the fl key 1 I 

changes the border color; f3 alters the text-background color. 
In addition, trying to move from the text window into the hi- 
res screen will be treated as a CLR/HOME. The Interpreter's ■ J 
commands (possible abbreviations are in parentheses) are: 

FORWARD x (can be abbreviated as FD). Moves the tur- 
tle a distance of x in the direction it is pointing. The value of x it 
must be greater than zero. The turtle will normally leave a ' ' 
trail as it moves (see PENUP, PENDOWN, PENDRAW, and 
PENERASE). You cannot leave the screen. j I 

RIGHT x (RT) and LEFT x (LT). Turns the turtle right 
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f*-j (clockwise) or left (counterclockwise) x degrees (x is at least 

1 ' zero). Because there are only eight turtle sprites, the turtle will 

not always seem to be pointing in exactly the direction it 
should, but it will still draw and move properly. 

SETHEADING x (SETH) and PRINTHEADING. Setting 
the heading to x will turn the turtle without changing its po- 
sition. Headings range from to 360. Straight up is 0°, and 
the values increase clockwise. PRINTHEADING returns the 
current value of the turtle's heading. 

SETPOSITION x y (SETP) and PRINTPOSITION. Set- 
ting the position to x y moves the turtle without changing its 
heading. The value of x should be between —159 and 160, 
and y values range from —106 to 106. Do not separate the x 
and y values with a comma, only a space. They should not be 
enclosed in parentheses, either. Note that the range of y will 
change if you change the "crunch factor" (see the section 
"Crunching the Screen"). The turtle starts at (0,0), the center 
of the screen. PRINTPOSITION returns the values of x y. 

PENERASE (PE) and PENDRAW (PW). These commands 
control whether the turtle will erase a trail or leave one. The 
program starts in draw mode. 

PENDOWN (PD) and PENUP (PU). Normally the turtle's 
pen is down. PENUP raises it so the turtle cannot leave or 
erase a trail. You may still set draw or erase modes, but you 
will not see any effect until after you have lowered the pen 
and moved forward. 

PENCOLOR x (PC), BACKGROUNDCOLOR x (BC), 
and TURTLECOLOR x (TC). Each of these changes the color 
to x, where x is between and 15. The first two will also per- 
form a CLR/HOME. (It's not a bug, it's a feature.) There can 
be only one pen color on the screen at any time, so executing 
the PENCOLOR command will recolor all the lines that have 
already been drawn on the screen. Try a number of combina- 
tions of background and pen colors. Because of the hardware 
problems in displaying isolated pixels on the screen, the same 
pen color will appear as different hues at different points on 
the screen. Experiment — you may like the effect, which is 
known as artifacting. 

SHOWTURTLE (ST) and HIDETURTLE (HT). Hiding 
the turtle is useful when you want to view a finished design. 
These commands have no effect on the turtle's color, 
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movement, position, and so on. SHOWTURTLE returns , , 

the turtle to the screen. I f 

HOME. Moves the turtle to (0,0) and sets the heading to 0°. 

CLEAN. Erases the hi-res screen. Note that pressing ( , 

CLR/HOME will not disturb the hi-res drawings. i f 

CLEARSCREEN (CS). Performs a CLEAN and a HOME. 

These commands, as well as all others that the turtle , , 

graphics package supports, are listed in the quick reference I I 

chart which follows the program listings. 

Combining Commands 

The Intrepreter will accept lines of up to 78 characters (that 
would fill up two entire lines in the text display window), and 
you may include numerous commands on each line — just be 
sure to use spaces between commands (no commas or colons). 
Here's a simple demonstration to animate the turtle: 

FORWARD 100 RIGHT 90 FORWARD 100 RIGHT 90 FORWARD 
100 RIGHT 90 FORWARD 100 

It could have been abbreviated as: 

FD 100 RT 90 FD 100 RT 90 FD 100 RT 90 FD 100 

These commands cause the turtle to draw a square. Because 
the Interpreter is in BASIC, the turtle won't move at break- 
neck speed. (If you are extremely ambitious, you could convert 
the plotting routine to machine language.) 

If you're willing to give up a little more time in inter- 
pretive overhead, you can use the powerful REPEAT (RP) 
command. You could rewrite the commands to draw a square 
as: 

REPEAT 4 [FORWARD 100 RIGHT 90] 

or 

REPEAT 4 [FD 100 RT 90] 

The statements you want to be repeated should be en- 
closed in square brackets and preceded by REPEAT x, where x 
is the number of times they should be repeated. REPEATS 
may be nested to a depth of 255 (although procedure calls will 

decrease this, as detailed below). For example, try the follow- I / 

ing commands: 

CS REPEAT 8 [REPEAT 4 [FORWARD 100 RIGHT 90] RIGHT 45] j I 
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f — . Using Procedures 

I The full power of turtle graphics is realized with procedures. A 

procedure is like a program; it's just a series of commands 
given a specific name. That name is added to the commands 
that the Interpreter will recognize. 

To make up a new procedure, use the DEFINE command. 

, , For example, type DEFINE BOX. You will be prompted with 

II BOX?, after which you should type REPEAT 4 [FORWARD 

100 RIGHT 90]. The Interpreter will respond with BOX DE- 
FINED. From now on, whenever you type BOX (either from 
the keyboard or from within another procedure), the com- 
mands REPEAT 4 [FORWARD 100 RIGHT 90] will be exe- 
cuted. You could define the last design as 8BOXES, typing CS 
REPEAT 8 [BOX RIGHT 45] after the 8BOXES? prompt 
appears. 

Each time you call a procedure counts as a level of nest- 
ing (just as a repeat loop does). One very important warning: 
Don't allow a procedure to call itself (or to call another proce- 
dure that may eventually call the first). This will result in a 
loop that you will have to break by pressing the STOP key. 
When you restart the program by typing RUN, you will lose 
your procedure definitions and any designs on the screen. 

There are a number of commands which facilitate work- 
ing with procedures. NAMES will print the names of all the 
current procedures (limit of 255). PRINTPROCEDURE x 
(PPROC) will print the commands associated with the proce- 
dure named x. ERASE x will erase procedure x, and RENAME 
x y will change the name of procedure x to y. ERASEALL will 
erase all the current procedure definitions. 

Saving and Loading Procedures 

r™l Procedures may also be saved to and loaded from disk or 

tape. SAVE x will save all the current procedures (a 
"workspace") to a file named x.TURTLE; LOAD x will copy 

[""J the procedures in x.TURTLE into memory. These will be added 

to those already defined, so you can merge workspaces. Files 
may be erased from the disk with SCRATCH x, which will 

! J erase x. TURTLE. While these commands are operating, the 

screen will seem to go awry; ignore this as it will be restored 
when the operations are complete. 

r~) QUIT will exit the program, but leave the machine in an 

unusual state. The screen will still be split, but this may be 
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corrected with RUN/STOP-RESTORE. Since memory is 

reconfigured, you'll want to return it to its normal state. If you | [ 

don't want to power off and back on again, type: 

POKE 2048,0: POKE 44,8: NEW 
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Crunching the Screen 

Because each brand of TV and computer monitor has a dif- 
ferent vertical aspect ratio, you may notice that your squares 
aren't square, circles look like eggs, and so on. If so, type: 

REPEAT 180 [FORWARD 2 RIGHT 2] 

If your design isn't a circle, take a centimeter ruler and 
measure the diameter along the x and y axes. (These should 
be easy to identify; just slide the ruler along the screen until 
you get the maximum measurements in the horizontal and 
vertical directions.) Divide the x value by the y value. This is 
the "crunch factor." Change line 50 of Program 1 to set CR to 
this value. If you're using a Commodore color monitor (mod- 
els 1701, 1702 or 1703), the value I've supplied in the pro- 
gram (.74) is appropriate. Note that changing this value 
changes the scaling on the y axis. The new limits will be 
±79/CR. 

For Tape Users 

You can modify the package to use a tape drive with the 
following changes: 

• Change the device number in lines 150 and 170 of Program 
3 from 8 to 1. 

• Change the word DISK to TAPE in line 80. 

• Delete lines 7000-7100, 25000-25060, and line 1280 in Pro- 
gram 1. , | 

• Change these lines in Program 1: 1 I 

23010 GOSUB 5000: IF WD$<> " "THEN23018 

23014 ER=-l:PRINT"YOU MUST SUPPLY A NAME": RETURN ( , 

23018 OPEN2,1,0,WD$+". TURTLE" [_J 

23060 CLOSE2:RETURN 

24010 GOSUB 5000:IF WD$<> ""THEN24018 

24014 ER=-1: PRINT" YOU MUST SUPPLY A NAME": RETURN j [ 

24018 OP EN2,1,1,WD$+". TURTLE" U-» 

24040 CLOSE2 : RETURN 

Program 3 should be saved first on the tape, followed by . i 

Program 2, and then Program 1. When Program 3 is loaded I — I 

and run, it will then load and run the other two programs. For 
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_ this autoload feature to work properly, you must save the pro- 

grams with the names shows in lines 150 and 170 — TURTLE 
GRAPHIC 2 for Program 2 and TURTLE GRAPHIC 1 for Pro- 
gram 1. Or you could change the names in those lines to 

I match the names under which you saved the programs. 

There is one additional requirement for the autoload fea- 
ture to operate properly. You must leave the PLAY button de- 

| pressed after Program 3 finishes loading. If you release the 

button, the PRESS PLAY message will be printed to the screen 
when Program 2 is loaded, which will prevent the loading of 
Program 1. 

How It Works 

Short of rewriting the Interpreter in machine language, there 
are still a number of modifications you may wish to make to 
customize the program. I've included these details to briefly 
give you an idea of how the package functions. 

Program 3 reconfigures memory to start loading programs 
at $4000 (16384 in decimal), leaving locations $0800-$3FFF 
(2048-16383) free for turtle sprite data. The LOADs and RUNs 
are accomplished by printing the appropriate commands on 
the screen and filling the keyboard buffer with RETURNS. 

Program 2 POKEs in the 512 bytes of sprite data below 
$1000 (4096), and then puts a number of machine language 
routines in memory beginning at $C000 (49152). The first rou- 
tine is an interrupt-driven split-screen routine. It also takes 
care of checking for the fl, f3, and CLR/HOME keys, and 
keeps text from scrolling onto the hi-res screen. This routine is 
initialized with SYS 49322. To clean the hi-res screen, use SYS 
49295. SYS 49235 will clean under the hi-res screen 
(1024-1823) and erase the text screen (1824-2023). The hi-res 
bitmap is stored beginning at 8192. 

Here are the important sections of the Interpreter (Pro- 
gram 1): 

10-170: Initialization. Frequently used variables and 
constants are created first to improve speed. Here are most of 
the variables's functions: 
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PE 


— 1 = penup, = pendown 




DR 


— 1 = pendraw, = penerase 


U 


C 


conversion from degrees to radians 


sc 


screen base 




BL 


bytes per hi-res screen line 


U 


BB 


bytes per hi-res screen block 


MX 


MSB (Most Significant Byte) of sprite x location 




PX 


LSB (Least Significant Byte) of sprite x location 





PY 


sprite y location 


BG 


used for sprite x seam 




CR 


screen crunch factor 




MA 


mask 




BA 


base in computer 




C1-C7 


constants used in determining sprite position 




SP 


sprite image number (0-7) 




H 


heading 




CI 


degrees in circle 




XH,XL 


x hi/lo values 




YH,YL 


y hi/lo values 




IX,IY 


initial x,y coordinates in FORWARD command 




X,Y 


current coordinates 




ss 


sprite spacing (45°) 




HA 


one-half 




FF 


used as a mask 




PC 


procedure counter 




DH 


delta heading 




K,QQ,ZZ 


temporary numeric storage 




T$,ZZ$ 


temporary string storage 




SE 


sprite enable 




PT 


sprite pointer 




D 


distance traveled 




ER 


-1 = error, = OK 




BY 


byte to be POKEd 




RO,CO 


row, column for upper-left corner of sprite 


i i 


XS,YS 


coordinates for turtle sprite 


u 


WD$ 


current word 




NU 


numeric input value 




PN 


procedure number temp 


u 


MD$ 


disk read/write mode 


NP 


number of procedures in disk file 




200-620: The parser routine is the most complicated part 


u 


of the program. NE keeps track of the nesting level. The com- 


1 1 1 


mand line 


typed at the keyboard is assigned to ST$(0). This 




serves as a 


, permanent copy of the command line. ST(0) is an 


u 


index into this string (how much has been processed). These 
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nare copied into IN$ and IN, which is what we actually work 
from. Commands are read off (and removed) from the left end 
of IN$ and executed in lines 1000-1300; IN and ST(0) are con- 

nstantly updated. 
Whenever a repeat command is found, the nesting level is 
incremented, the repetition factor is put in RP(NE), and the 
r— ) contents of the loop are put in a new command line, ST$(NE). 

i _ i The parser then executes ST$(NE) as described. When we 

reach the end of a command line, we "pop" up by 
decrementing NE and continuing where we left off in the pre- 
vious command line. Advanced programmers may recognize 
this as a stack used to simulate recursion. 

Procedures are implemented in the same way. Whenever 
a procedure name is encountered, we drop down a nesting 
level, and treat the procedure's commands as the contents of a 
repeat loop with a repetition factor of 1. 

1000-1300: Identifies and executes commands. If you 
choose to permanently change the name (or abbreviation) of a 
command, do it here. This section also clears the error flag to 
(false) before each command. Any command that fails will 
set the error flag to — 1 (true). The parser keeps track of the 
flag, and aborts all pending commands when the flag is set 
true. The individual commands all have good diagnostics, and 
you may assume that your commands have been successfully 
executed if no message to the contrary is printed. 

2000-8000: These subroutines are used by the Interpreter 
in executing various commands. 

9000-22000: Each of these subroutines corresponds to a 
single command; consulting the variable list should help clar- 
ify them. 

J I Sample Designs 

Here are some simple designs to get you started. The names of 
_ the procedures are in boldface: 

f J RECTANGLE: RP 2 [FD 80 RT 90 FD 30 RT 90] 

HEXAGON: RP 6 [FD 100 RT 60] 
— . PENTAGON: RP 5 [FD 100 LT 72] 

I I PENTAGRAM: RP 5 [FD 161.8 LT 144] 

TWOPENTAS: SETP -60-80 SETH 90 PENTAGON LT 36 

PENTAGRAM 
f"] ARROW: RECTANGLE LT 90 FD 15 LT 135 RP 2 [FD 42.4 LT 90] 

LT 45 FD 15 PE FD 28 PW 
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HONEYCOMB: SETP -30 30 SETH 330 RP 6 [RP 6 [FD 25 RT 60] 

RT 120 PU FD 25 LT 60 PD] |_J 

Program 1. Interpreter 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C, \ i 

to enter the following three programs. " — 

10 REM TURTLE GRAPHICS INTERPRETER :rem 202 

30 IF PEEK( 49152)<>173 THEN PRINT CHR$(150) "TURTL t i 

E DATA DID NOT LOAD": END :rera 87 i I 

40 X=0: Y=0: IX=0: IY=0: D=0: NU=0: BY=0: BI=0: XH 

=160: XL=-159: C=t/180 :rem 121 

50 CR=.74: YH=INT( 797CR) : YL=-YH: BA=2 : BB=8: BL=3 

20: SC=8192: PE=0: DR=-1 :rem 195 

60 MA=7: H=0: PX=53248: BB=8: BL=320: SC=8192: PE= 

0: DR=-1: MA=7: H=0 : PX=53248 :rem 33 

70 PY=53249: BG=256: RO=0: CO=0: XS=0: YS=0 : SP=0: 

PT=2040: SE=53269: HA=.5 :rem 189 

80 Cl=12: C2=40: C3=50: C4=28: C5=24: C6=3 : C7=5: 

{ SPACE }CI=360: MX=53264: PC=0 :rem 10 

90 FF=255: SS=45: SB=56: YM=79 :rem 88 

100 DIM ST$(255),ST(255),RP(255),PR$(255),PN$(255) 

:rera 88 
110 DEF FNR(X)=INT((X+.005)*100)/100 : rem 123 
120 REM INITIALIZE SCREEN AND TURTLE :rem 220 
130 GOSUB 3000: POKE 2, 110: POKE 53277, 0: POKE 5 
3271, 0: POKE 53287,0 :rem 146 

140 SYS 49295: SYS 49235: SYS 49322: POKE SE, 1: P 
OKE 53280,2: POKE53281,ll :rem 63 

150 PRINT CHR$(129) "TURTLE GRAPHICS INTERPRETER" 

:rem 218 
170 PRINT CHR$(30) : rem 218 

200 REM MAIN LOOP - GET A LINE OF COMMANDS AND PRO 
CESS IT :rem 193 

210 ST$(0)="": INPUT ST$(0) :rem 118 

220 NE=0: ST(0)=0: RP(0)=0: ER=0 : rem 107 

230 IF ST$(0)="" THEN 210 :rem 179 

240 REM COPY UNEXECUTED PART OF CURRENT COMMAND ST j j 

RING (NESTING LEVEL = NE) : rem 37 

250 REM INTO IN$ TO BE PROCESSED : rem 66 

260 IN$=RIGHT$(ST$(NE), LEN(ST$ (NE) )-ST(NE) ) : IN=0 ( j 

: rem 51 L J 

270 GOSUB 5000 {2 SPACES} FILL WD$ WITH NEXT WORD FR 
OM IN$ :rem 106 

280 IF WD$<>"" THEN 350 : rem 109 

290 REM IN$ IS EMPTY; WE ARE DONE WITH ALL COMMAND 
S IF NESTING LEVEL IS :rem 140 

300 IF NE=0 THEN 200 :rem 227 j ) 

310 REM WE HAVE COMPLETED A REPETITION OF THE CURR \ j 

ENT COMMAND STRING ST$(NE) :rem 55 
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320 REM IF NEEDED, REPEAT. {2 SPACES } ELSE , POP NEST 

ING LEVEL :rem 156 

330 RP(NE)=RP(NE)-1: IF RP(NE)>0 THEN ST(NE)=0: GO 

TO 240 :rem 42 

340 NE=NE-1: GOTO 240 : rem 97 

350 IF (WD$="REPEAT")OR(WD$="RP") THEN 440 : rem 20 
360 REM CHECK IF COMMAND IS A PROCEDURE NAME 

:rem 16 

370 GOSUB 6000: IF PN=0 THEN 410 :rem 120 

380 REM STUFF IN$ WITH PROC STRING AS IF IT WERE A 

REPEAT LOOP : rem 56 

390 IN$= "[" + PR$(PN) + "]" + RIGHT? (IN$, LEN(IN$ 

)-IN): IN=0: NU=1 :rem 28 

400 ST(NE)=ST(NE)-LEN(PR$(PN))-2: GOTO 480:rem 103 
410 REM IDENTIFY AND EXECUTE WD$ AS A COMMAND 

:rem 78 
420 GOSUB 1000: IF ER THEN 200 : rem 248 

430 GOTO 270: REM WE ARE DONE CURRENT COMMAND 

:rem 67 
440 REM GET REPETITION FACTOR FOR REPEAT LOOP 

:rem 
450 GOSUB 4000: IN$=RIGHT$(IN$, LEN( IN$)-IN) : IN=0 

:rem 214 
460 IF (NOT ER)AND(NU>0)AND(INT(NU)=NU) THEN 480 

:rem 229 

470 PRINT "I CAN'T REPEAT SOMETHING " WD$ " TIMES" 

:IN$="": GOTO 200 :rem 113 

480 REM PUSH THE COMMAND STRING STACK (INCREMENT N 

ESTING LEVEL) :rem 115 

490 NE=NE+1: IF NE=256 THEN PRINT "NESTING TOO DEE 

P": GOTO 200 :rem 191 

495 RP(NE)=NU: ST(NE)=1: K=0 : rem 45 

500 REM FILL ST$(NE) WITH CONTENTS OF REPEAT BRACK 

ETS :rem 158 

510 ST$(NE)="": QQ=0: K=0 : rem 1 

520 T$=MID$(IN$, ST(NE), 1) : rem 106 

530 IF T$="j" THEN K=K-1 :rem 221 

540 IF K>0 THEN ST$ (NE)=ST$ (NE)+T$ : rem 78 

550 IF T$="[" THEN K=K+1 : QQ=-1 :rem 82 

560 IF K<=0 THEN 600 : rem 227 

570 ST(NE)=ST(NE)+1 : rem 75 

580 IF ST(NE)<=LEN(IN$) THEN 520 : rem 225 

590 PRINT "MISMATCHED BRACKETS IN REPEAT": IN$="": 
GOTO 200 :rem 112 

600 IF (K<0) OR ((K=0)AND(NOTQQ)) THEN 590:rem 172 
610 ST(NE-1)=ST(NE)+ST(NE-1): ST(NE)=0 : rem 142 
620 GOTO 240: REM EXECUTE THE NEW COMMAND STRING 

: rem 57 
1000 REM IDENTIFY AND EXECUTE COMMAND : rem 230 
1005 ER=0 :rem 202 
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1010 IF (WD$="FORWARD")OR(WD$="FD") THEN GOSUB 900 

0: RETURN :rem 69 j j 

1020 IF (WD$="RIGHT")OR(WD$="RT") THEN GOSUB 10000 

: RETURN :rem 243 

1030 IF (WD$="LEFT")OR(WD$="LT") THEN GOSUB 11000: 

RETURN :rem 156 

1040 IF (WD$="PENUP")OR(WD$="PU" ) THEN PE=-1 : RETU 

RN :rem 189 

1050 IF (WD$="PENDOWN")OR(WD$="PD") THEN PE=0: RET 

URN :rem 18 

1060 IF WD$="HOME" THEN GOSUB 12000: RETURN 

:rem 123 

1070 IF WD$="CLEAN" THEN SYS 49295: RETURN : rem 79 

1080 IF (WD$="CLEARSCREEN")OR(WD$="CS") THEN GOSUB 

12000: SYS 49295: RETURN : rem 218 

1090 IF (WD$="SETHEADING")OR(WD$="SETH") THEN GOSU 

B 13000: RETURN : rem 233 

1100 IF (WD$="SETPOSITION")OR(WD$="SETP") THEN GOS 

UB 14000: RETURN : rem 111 

1110 IF (WD$="PENERASE")OR(WD$="PE") THEN DR=0: RE 

TURN :rem 73 

1120 IF (WD$="PENDRAW")OR(WD$="PW") THEN DR=-1 : RE 

TURN :rem 72 

1130 IF (WD$="ST")OR(WD$="SHOWTURTLE") THEN POKE S 

E, 1: RETURN :rem 76 

1140 IF (WD$="HIDETURTLE")OR(WD$="HT") THEN POKE S 

E, 0: RETURN :rem 26 

1150 IF (WD$="PENCOLOR")OR(WD$="PC") THEN GOSUB 15 

000: RETURN : rem 205 

1160 IF (WD$="BACKGROUNDCOLOR")OR(WD$="BC") THEN G 

OSUB 16000: RETURN : rem 190 

1170 IF (WD$="TURTLECOLOR")OR(WD$="TC") THEN GOSUB 

17000: RETURN : rem 210 

1180 IF WD$="PRINTHEADING" THEN PRINT FNR(H): RETU 

RN :rem 107 

1190 IF WD$="PRINTPOSITION" THEN PRINT "(" FNR(X) 

{SPACE}"," FNR(Y) ")": RETURN :rem 218 
1200 IF WD$="DEFINE" THEN GOSUB 18000: RETURN 

:rem 255 
1210 IF WD$="NAMES" THEN GOSUB 19000: RETURN 

:rem 202 
1220 IF (WD$="PRINTPROCEDURE")OR(WD$="PPROC") THEN 
GOSUB 20000: RETURN :rem 140 

1230 IF WD$= "ERASE" THEN GOSUB 21000: RETURN 

:rem 193 
1240 IF WD$="ERASEALL" THEN PC=0: PRINT "ALL PROCE 

DURES ERASED": RETURN :rem 188 

1250 IF WD$="RENAME" THEN GOSUB 22000: RETURN 

:rem 12 
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— i 1260 IP WD$="LOAD" THEN GOSUB 23000: RETURN 
j \ :rem 118 

1270 IF WD$="SAVE" THEN GOSUB 24000: RETURN 

:rem 135 

" — | 1280 IF WD$="SCRATCH" THEN GOSUB 25000: RETURN 

/ ' :rem 98 

1290 IF WD$="QUIT" THEN PRINT "BYE": END : rem 207 

„— . 1300 ER=-1: PRINT "I DON'T UNDERSTAND " WD$ : RETUR 

( N :rem 119 

2000 REM MOVE TURTLE :rem 189 

2010 RO=YM-(Y*CR): CO=X-XL : rem 15 

2020 IF (SP/BA)=INT(SP/BA) THEN XS=CO+Cl : YS=RO+C2 

: GOTO 2200 :rem 170 

2030 XS=CO: IF SP>C6 THEN XS=XS+C5 :rem 199 

2050 IF (SP=C6)OR(SP=C7) THEN YS=RO+C4: GOTO 2200 

:rem 222 
2060 YS=RO+C3 
2200 IF XS<BG THEN POKE PX, XS 

220 
2210 POKE PX, XS-BG: POKE MX, 1 
2220 POKE PY, YS 
2230 RETURN 

3000 REM CHANGE HEADING 
3010 H=H+DH 

3020 IF H>=CI THEN H=H-CI : GOTO 3020 

3030 IF H<0 THEN H=H+CI : GOTO 3030 

3040 SP=(INT(H/SS+HA)) AND MA: 

3050 QQ=PEEK(SE): POKE SE, 0: POKE PT , SB+SP: GOSU 

B 2000 :rem 42 

3065 POKE SE, QQ : rem 99 

3070 RETURN : rem 170 

4000 REM NUMERIC INPUT :rem 75 

4010 REM GETS NEXT WORD FROM IN$ AS A NUMBER (NU) . 

{2 SPACES} CHECKS FOR ERROR :rem 40 

4020 GOSUB 5000: ER=0: NU=0: IF WD$="" THEN ER=-1 : 

RETURN :rem 23 

4030 FOR K= 1 TO LEN(WD$): T$=MID$(WD$, K, 1) 

:rem 202 

4040 IF ((T$<"0")OR(T$>"9")) AND (T$<>"-" )AND(T$<> 

"+") AND (T$ <>".") THEN ER=-1 :rem 59 

4050 NEXT: NU=VAL(WD$) : RETURN : rem 47 

5000 REM FILL WD$ WITH NEXT WORD FROM IN$ :rem 53 

5010 WD$="": IF IN$="" THEN 5070 :rem 6 

5020 IN$=RIGHT$(IN$, LEN( IN$ )-IN) : IN=0 :rem 134 

5030 ST(NE)=ST(NE)+1: IN=IN+1 : rem 120 

5040 IF IN>LEN(IN$) THEN IN=IN-1 : ST(NE)=ST(NE)-1 : 

GOTO 5070 :rem 58 

5050 IF MID$(IN$, IN, 1)<>" " THEN WD$=WD$ + MID$( 

IN$, IN, 1): GOTO 5030 :rem 187 

5060 IF (WD$="")AND(IN$<>"") THEN 5020 :rem 126 



:rem 243 

POKE MX, 0: GOTO 2 

: rem 67 

:rem 148 

:rem 118 

:rem 167 

: rem 61 

:rem 72 

:rem 144 

:rem 245 

:rem 160 
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5070 RETURN : rem 172 

6000 REM IDENTIFY PROCEDURE :rem 175 

6010 REM RETURNS INDEX (PN) OF PROCNAME IN WD$ ; 

{SPACE} IF NOT A PROCNAME :rem 6 

6020 K=0: PN=0 :rem 197 

6030 K=K+1: IF K>PC THEN RETURN :rem 236 

6040 IF WD$<>PN$(K) THEN 6030 : rem 232 

6050 PN=K: RETURN :rem 11 

7000 REM OPEN DISK FILE : rem 40 

7010 ER=0: GOSUB 5000: IF WD$<>"" THEN 7030 

:rem 138 
7020 ER=-1: PRINT "YOU MUST SUPPLY A FILENAME": RE 

TURN :rem 213 

7030 OPEN 15,8,15 :rem 88 

7040 OPEN 2,8,2, ,, 0:" + WD$ + " .TURTLE, S, " + MD$ : 

{ SPACE} INPUTt 15, QQ,T$,K,ZZ : rem 217 

7050 IF (QQ=26)AND(MD$="W") THEN PRINT "WRITE-PROT 

ECTED DISK": ER=-1 : RETURN : rem 183 

7060 IF (QQ=67)AND(MD$="W")AND(K=36) THEN PRINT "D 

ISK IS FULL.": ER=-1 : RETURN :rem 109 
7070 IF (QQ=63)AND(MD$="W") THEN PRINT "FILENAME I 

S USED": ER=-1: RETURN : rem 59 

7080 IF (QQ=62)AND(MD$="R" ) THEN PRINT "NO SUCH FI 

LE ON DISK": ER=-1 : RETURN : rem 224 

7090 IF QQ>19 THEN PRINT "I'M HAVING TROUBLE WITH 

{SPACE}THE DISK": ER=-1 : rem 244 

7100 RETURN :rem 168 

8000 REM GET VALID COLOR NUMBER : rem 68 

8010 GOSUB 4000 NUMERIC INPUT :rem 176 

8020 IF ER OR (NU>15)OR(NU<0) THEN ER=-1 : rem 139 
8030 RETURN :rem 171 

9000 REM FORWARD COMMAND : rem 193 

9010 GOSUB 4000: IF ER OR (NU<=0) THEN PRINT "I CA 

N'T GO FORWARD " WD$ : RETURN : rem 198 
9020 IX=X: IY=Y: FOR D= TO NU: X=FNR(D*SIN(H*C)+ 

IX): Y=FNR(D*COS(H*C)+IY) :rem 232 

9030 IF X>XH THEN X=XH :rem 245 

9040 IF X<XL THEN X=XL : rem 252 

9050 IF Y>YH THEN Y=YH :rem 251 

9060 IF Y<YL THEN Y=YL : rem 2 

9070 IF PE THEN 9120 :rem 239 

9080 BY=SC + BL*INT((YM-(Y*CR))/BB) +BB*INT( (X-XL) 

/BB) + ((YM-(Y*CR)) AND MA) :rem 74 

9090 BI=MA - ((X-XL) AND MA) :rem 129 

9100 IF DR THEN POKE BY, PEEK(BY) OR BAtBI: GOTO 9 

120 :rem 113 

9110 POKE BY, PEEK(BY) AND (FF-BAfBI) : rem 27 
9120 GOSUB 2000: NEXT: RETURN : rem 161 

10000 REM RIGHT COMMAND :rem 82 
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10010 GOSUB 4000: IF ER OR (NU<0) THEN PRINT "I CA 



n 



n 



10020 
11000 
11010 

11020 
12000 
12010 

13000 
13010 

13020 

13030 
14000 
14010 

14020 

14030 
14040 

14050 

15000 
15010 

15020 

16000 
16010 

16020 

17000 
17020 

17030 
18000 
18010 
18020 

18030 

18040 

18050 



N'T TURN RIGHT " WD$ : RETURN 
DH=NU: GOSUB 3000: RETURN 

REM LEFT COMMAND 



:rem 205 
:rem 246 
:rem 



GOSUB 4000: IF ER OR (NU<0) THEN PRINT "I CA 

N'T GO LEFT " WD$ : RETURN 

DH=-NU: GOSUB 3000: RETURN 

REM HOME COMMAND 

X=0: Y=0: H=0: DH=0: GOSUB 3000: 



rem 200 
:rem 36 

:rem 255 
RETURN 

:rem 114 

REM SETHEADING COMMAND : rem 179 

GOSUB 4000: IF (NOT ER)AND(H<=360) THEN 1303 
:rem 127 

ER=-1: PRINT "I CAN'T SET A HEADING OF " WD$ 
: RETURN : rem 84 

H=NU: DH=0: GOSUB 3000: RETURN :rem 233 
REM SETPOSITION COMMAND :rem 57 

GOSUB 4000: IF (NOT ER) AND(NU>=XL) AND(NU<=XH 
) THEN 14030 :rem 201 

ER=-1: PRINT "I CAN'T SET AN X-VALUE OF "WD$ 
: RETURN :rem 181 

QQ=NU: GOSUB 4000 :rem 248 

IF (NOT ER)AND(NU>=YL)AND(NU<=YH) THEN X=QQ: 
Y=NU: GOSUB 2000: RETURN :rem 152 

ER=-1: PRINT "I CAN'T SET A Y-VALUE OF "WD$ : 
RETURN :rem 107 

REM PENCOLOR COMMAND : rem 59 

GOSUB 8000: IF ER THEN PRINT WD$ " IS NOT A 
{SPACE} PENCOLOR": RETURN :rem 168 

POKE 2, (PEEK(2)AND15)+16*NU: SYS 49235: RET 
URN :rem 112 

REM BACKGROUNDCOLOR COMMAND : rem 57 

GOSUB 8000: IF ER THEN PRINT WD$ " IS NOT A 
{SPACE} BACKGROUNDCOLOR": RETURN :rem 166 
POKE 2, (PEEK(2)AND240)+NU: SYS 49235: RETUR 
N :rem 16 

REM TURTLECOLOR COMMAND : rem 58 

GOSUB 8000: IF ER THEN PRINT WD$ " IS NOT A 
{SPACE} TURTLECOLOR": RETURN :rem 168 
POKE 53287, NU: RETURN :rem 28 

REM DEFINE NEW PROCEDURE : rem 27 

GOSUB 5000:IF WD$<>"" THEN 18030 :rem 176 
PRINT "I NEED A PROCEDURE NAME": ER=-1 : RETU 
RN :rem 194 

IF PC=FF THEN PRINT "I CAN'T REMEMBER ANY MOR 
E PROCEDURES": ER=-1 : RETURN :rem 105 
GOSUB 6000: IF PN<>0 THEN PRINT WD$ " ALREAD 
Y EXISTS": ER=-1: RETURN :rem 123 

PC=PC+1: PN$(PC)=WD$: PRINT WD$;: INPUT PR$( 
PC) :rem 206 
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18060 PRINT WD$ " IS NOW DEFINED": RETURN 

19000 REM PRINTNAMES COMMAND 

19010 PRINT "NUMBER OF PROCEDURES:" PC 

19020 IF PC=0 THEN RETURN 

19030 FOR K= 1 TO PC: PRINT PN$(K): NEXT: 



:rem 40 
:rem 222 
: rem 243 
:rera 154 
RETURN 
:rem 139 

:rem 11 
:rem 162 



20000 REM PRINTPROCEDURE COMMAND 
20010 GOSUB 5000: IF WD$<>"" THEN 20030 
20020 ER=-1: PRINT "I NEED A PROCEDURE NAME": RETU 
RN :rem 187 

20030 GOSUB 6000: IF PN<>0 THEN PRINT PR$(PN): RET 
URN :rem 215 

ER=-1: PRINT "THERE IS NO PROCEDURE " WD$: R 
ETURN :rem 102 

REM ERASE COMMAND : rem 70 

GOSUB 5000: IF WD$<>"" THEN 21030 : rem 164 
ER=-1: PRINT "I NEED A PROCEDURE NAME": RETU 
RN :rem 188 

GOSUB6000: IF PN<>0 THEN 21050 : rem 116 
ER=-1: PRINT "THERE IS NO PROCEDURE " WD$ : R 
ETURN :rem 103 

PR$(PN)=PR$(PC): PN$(PN)=PN$(PC): PC=PC-1 :PR 
INT WD$ " IS ERASED": RETURN : rem 145 
REM RENAME COMMAND : rem 143 

GOSUB 5000: IF WD$<>"" THEN 22030 : rem 166 
ER=-1: PRINT "I NEED TO KNOW THE OLD NAME": 



20040 

21000 
21010 
21020 

21030 
21040 
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22000 
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22020 
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24000 
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{SPACE} RETURN :rem 117 

GOSUB 6000 :rem 61 

IF PN=0 THEN PRINT "PROCEDURE " WD$ " DOESN' 
T EXIST": ER=-1: RETURN : rem 69 

QQ=PN :rem 118 

GOSUB 5000: IF WD$<>"" THEN22080 :rem 176 
PRINT "I NEED TO KNOW THE NEW NAME": ER=-1 : 
{SPACE} RETURN :rem 133 

GOSUB 6000 :rem 66 

IF PNO0 THEN PRINT "YOU HAVE ALREADY USED T 
HAT NAME": ER=-1 : RETURN :rem 

PN$(QQ)=WD$: PRINT "RENAMING OK": RETURN 

:rem 182 
REM LOAD COMMAND :rem 248 

MD$="R": GOSUB 7000: IF ER THEN 23060 

:rem 137 
INPUT#2, NP srem 166 

IF (NP+PC)>FF THEN PRINT "TOO MANY PROCEDURE 
S": ER=-1: GOTO 23060 :rem 251 

FOR K= 1 TO NP: INPUT#2, PN$(PC+K), PR$(PC+K 
): NEXT: PC=PC+NP : rem 108 

PRINT NP "PROCEDURES LOADED" :rem 14 
CLOSE 15: RETURN :rem 211 
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CLOSE 2: 

REM SAVE COMMAND 



:rem 8 
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24010 MD$="W": GOSUB 7000: IF ER THEN 24040 

:rem 142 



24020 PR1NT#2, PC: FOR K= 1 TO PC: PRINT#2, PN$(K) 

: PRINT#2, PR$(K): NEXT : rem 114 

J | 24030 PRINT PC "PROCEDURES SAVED" : rem 204 

24040 CLOSE 2: CLOSE 15: RETURN :rem 210 

25000 REM SCRATCHFILE COMMAND : rem 2 

r— I 25010 ER=0: GOSUB 5000: IF WD$<>"" THEN 25030 

'.. ' :rem 234 

25020 PRINT "YOU MUST SUPPLY A FILENAME": ER=-1 : R 

ETURN :rem 5 

25030 OPEN 15,8,15 :rem 136 

25040 PRINT#15, "S0:" + WD$ + ".TURTLE": INPUT#15, 

QQ,T$,ZZ,ZZ :rem 42 

25050 IF (QQ>19)AND(QQ<>62) THEN PRINT "I'M HAVING 

TROUBLE WITH THE DISK":ER=-1 :rem 25 

25060 CLOSE 15: RETURN :rem 243 

Program 2. Turtle Data 

100 REM TURTLE DATA, FOR USE WITH TURTLE GRAPHICS 

{SPACE} INTERPRETER. USE TURTLE BOOT : rem 95 
110 REM TO LOAD. : rem 103 

120 FOR K= 3584 TO 4095: READ J: POKE K, J: NEXT 

:rem 142 
200 REM HEADING : rem 150 

210 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,24,0,0 :rem 239 

220 DATA 60,0,0,126,0,0,255,0,1,255,128,3,255,192, 

7,255,224,15,255,240,31,255 :rem 171 

230 DATA 248,0,0,0,0,0,0,0 :rem 209 

240 REM HEADING 45 :rem 211 

250 DATA 0,63,255,0,31,255,0,15,255,0,7,255,0,3,25 

5,0,1,255,0,0,127,0,0,63,0 :rem 90 

260 DATA 0,31,0,0,7,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0 :rem 252 

270 DATA 0,0,0,0,0 :rem 83 

280 REM HEADING 90 : rem 215 

290 DATA 0,0,0,0,0,0,224,0,0,240,0,0,248,0,0,254,0 

,0,255,0,0,255,128,0,255,192 :rem 163 

300 DATA 0,255,224,0,255,224,0,255,192,0,255,128,0 

,255,0,0,254,0,0,248,0,0,240 :rem 199 

I | 310 DATA 0,0,224,0,0,0,0,0,0,0,0,0,0,0,0 :rem 78 

1 ' 320 REM HEADING 135 :rem 2 

330 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

n, 0,0, 0,0, 0,0, 0,0, 0,0, 0,3, 0,0 :rem 27 

340 DATA 7,0,0,31,0,0,63,0,0,127,0,1,255,0,3,255,0 
,7,255,0,15,255,0,31,255,0 :rem 76 
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350 DATA 63,255,0 :rem 63 

360 REM HEADING 180 : rem 6 

370 DATA 0,0,0,31,255,248,15,255,240,7,255,224,3,2 

55,192,1,255,128,0,255,0,0 :rem 128 

380 DATA 126,0,0,60,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0 srem 58 

390 DATA 0,0,0,0,0,0,0,0,0 :rem 198 

400 REM HEADING 235 : rem 2 

410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,192,0,0 :rem 203 

420 DATA 224,0,0,248,0,0,252,0,0,254,0,0,255,128,0 

,255,192,0,255,224,0,255,240 :rem 199 

430 DATA 0,255,248,0,255,252,0,0 :rem 20 

440 REM HEADING 270 : rem 5 

450 DATA 0,0,0,0,0,0,0,0,14,0,0,30,0,0,62,0,0,254, 

0,1,254,0,3,254,0,7,254,0,15 :rem 128 

460 DATA 254,0,15,254,0,7,254,0,3,254,0,1,254,0,0, 

254,0,0,62,0,0,30,0,0,14,0,0 :rem 159 

470 DATA 0,0,0,0,0,0,0,0 :rem 105 

480 REM HEADING 315 : rem 9 

490 DATA 255,252,0,255,248,0,255,240,0,255,224,0,2 

55,192,0,255,128,0,254,0,0 :rem 134 

500 DATA 252,0,0,248,0,0,224,0,0,192,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0 :rem 82 

510 DATA 0,0,0,0,0,0,0,0,0,0,0,0 :rem 212 

600 REM SPLITSCREEN ROUTINE :rem 236 

610 FOR K= 49152 TO 49349: READ J: POKE K, J: NEXT 

:rem 254 
620 DATA 173,25,208,141,25,208,41,1,208,3,76,188,2 

54,173,18,208,16,18,169,21 :rem 166 

630 DATA 141,24,208,169,27,141,17,208,169,1,141,18 

,208,76,188,254,169,25,141 :rem 178 

640 DATA 24,208,169,59,141,17,208,169,209,141,18,2 

08,24,165,214,105,236,16 :rem 75 

650 DATA 3,32,83,192,165,197,201,4,208,3,238,32,20 

8,201,5,208,3,238,33,208,32 :rem 200 

660 DATA 132,192,76,49,234,165,2,162,0,157,0,4,232 

,208,250,157,0,5,232,208,250 ;rem 245 

670 DATA 157,0,6,232,208,250,162,31,157,0,7,202,16 

,250,169,32,162,201,157,31,7 :rem 238 

680 DATA 202,208,250,24,160,0,162,20,32,240,255,96 

,162,39,165,2,157,248,6,202 :rem 199 

690 DATA 16,250,96,24,169,32,133,252,169,0,133,251 

,168,145,251,200,208,251,230 :rem 2 

700 DATA 252,165,252,201,64,208,1,96,152,240,239,1 

20,169,127,141,13,220,169,1 :rem 198 

710 DATA 141,26,208,169,192,141,21,3,169,0,141,20, 

3,169,1,141,18,208,88,96 :rem 58 
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Program 3. Turtle Boot 



10 REM TURTLE BOOT :rem 89 

20 POKE 53281, 6 :rera 246 

30 PRINT CHR$(147); CHR$(154) TAB (10) "TURTLE GRAP 
HICS BOOT": PRINT: PRINT :rem 197 

40 PRINT "THIS PROGRAM WILL LOAD AND RUN THE" 

:rem 134 
50 PRINT "TURTLE DATA AND INTERPRETER PROGRAMS.": 

{SPACE} PRINT :rem 183 

60 PRINT "WHILE THEY ARE LOADING, THE SCREEN WILL" 

:rem 197 
70 PRINT "BLANK.": PRINT : rem 149 

80 PRINT "DO NOT REMOVE THE DISK UNTIL THE" :rem 4 
90 PRINT "INTERPRETER PROMPTS YOU FOR YOUR FIRST" 

:rem 126 
100 PRINT "COMMAND.": PRINT: PRINT: POKE 198, 

:rem 132 
110 PRINT "PRESS " CHR$(18) "SPACE" CHR$(146) " WH 



EN READY" 
120 GETA$: IF A$="" THEN 120 
130 Q$=CHR$(34): D$=CHR$(17) 



:rem 51 
: rem 73 
:rem 152 



140 PRINT CHR$(147); CHR$(31); D$; D$; D$ "POKE 16 

384, 0: POKE 44, 64: NEW" :rem 74 

150 PRINT D$; D$ "LOAD" Q$ "TURTLE GRAPHIC 2" Q$ " 

,8" :rem 120 

160 PRINT D$; D$; D$; D$; D$ "RUN" : rem 81 

170 PRINT D$; D$ "LOAD" Q$ "TURTLE GRAPHIC 1" Q$ " 

,8" :rem 121 

180 PRINT D$; D$ ; D$ ; D$; D$ "RUN" CHR$(19):rem 15 

190 FOR K= 1 TO 7: POKE 630+K, 13: NEXT: POKE 198, 

7 :rem 3 

Turtle Graphics Commands Quick Reference Chart 



Command 

FORWARD x (FD) 
RIGHT x (RT) 
LEFT x (LT) 
SETHEADING x (SETH) 

PRINTHEADING 
SETPOSITION x y (SETP) 

PRINTPOSITION 
PENERASE (PE) 
PENDRAW (PW) 
PENDOWN (PD) 



Description 

Moves turtle forward 

Turns turtle clockwise 

Turns turtle counterclockwise 

Turns turtle without changing 

position 

Returns current turtle heading 

Moves turtle without changing 

heading 

Returns current turtle coordinates 

Erase a trail 

Draw a trail 

Pen is down 
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PENUP (PU) 

PENCOLOR x (PC) 
BACKGROUNDCOLOR x (BC) 
TURTLECOLOR x (TC) 
SHOWTURTLE (ST) 

HIDETURTLE (HT) 
HOME 

CLEAN 
CLEARSCREEN 

REPEAT x [ ] (RP) 
DEFINE x 

NAMES 

PRINTPROCEDUREx (PPROC) 

ERASE x 
RENAME x y 

ERASEALL 
SAVEx 

LOADx 

SCRATCH x 



Pen is up — turtle cannot erase or 
draw 

Changes trail color 
Changes hi-res background color 
Changes turtle color 
Shows the turtle again after it's 
been hidden 

Makes the turtle invisible 
Moves turtle to 0,0 and sets head- 
ing to degrees 
Erases the hi-res screen 
Performs a CLEAN and a HOME 

Repeats a command 

Define a procedure 

Prints all the names of current 

procedures 

Prints the commands in 

procedure x 

Erases procedure x 

Renames procedure x with new 

name y 

Erases all current procedures 

Saves all current procedures as 

filename x.TURTLE 

Loads into memory procedures 

from filename x.TURTLE 

Erases filename x.TURTLE from 

disk 

Exit the program 



QUIT 

These are not commands, but keys you can press for the 
following results: 

CLR/HOME Clears the text display window 

f 1 Changes screen border color 

f3 Changes text background color 
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n Programming 
n 64 Sound 

p~[ John Michael Lane 

This in-depth look at sound for the 64 provides 
you with practical methods for controlling the 64' s 
SID chip from BASIC. Not only does it discuss 
sound and music in general, but it also examines 
some techniques for programming more com' 
plicated music. 



Sight and sound are two essential components of successful 
computer games. Though the methods used to produce visual 
images differ from one computer to another, it's not too hard 
to produce an image that looks something like what you want. 
When designing space games, it's really easy, because just 
about anything can look like a spaceship. 

Producing sound, however, can be quite a different mat- 
ter. How can you produce the sound of a laser gun when 
dealing with such unfamiliar concepts as frequency, wave- 
forms, and envelopes? (Actually lasers don't make any noise, 
but you know the sound I mean.) 

Without a pretty expensive test setup, it can seem impos- 
sible to produce exactly the sound you're looking for. The 
r— j only recourse is trial and error. Still, if you understand a little 
'.. J about the physics of sound and how it relates to the sound 
generator you're using, you can produce creditable results. 



H 
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Real Sound 

Sound is produced when physical objects vibrate. Vibrations 
are then set in motion and travel through the air as sound 
waves to our ears. Sound, in its purest form, has only two 
physical attributes, frequency and amplitude. Frequency, the 
number of vibrations per sound, is usually measured in cycles 
per sound, or hertz. The higher the frequency or pitch of the 
sound, the higher a note sounds to our ears. 
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We've probably never heard a tone that consisted purely 
of one frequency. Physical objects create vibrations at fre- 
quencies which are multiples of a fundamental frequency. The 
presence and quantity of these overtones determine the tonal 
quality, the color or timbre, of the sound. It's this tonal quality 
that determines whether a noise we hear sounds like a banjo 
or a drum (although there are other factors which we'll get to 
in a minute). 

Different instruments and objects produce these overtones 
in varying amounts. Some produce overtones strong in even 
multiples of the fundamental frequency. Others produce tones 
rich in the odd multiples. There really is no limit to the variety 
of tonal qualities that exist in the real world. 

On some organs, and on some music synthesizers, you 
can specify the exact amount of each overtone you want in- 
cluded in each sound. On the synthesizer included in the 
Commodore 64, this is handled through the different types of 
waveforms that can be selected. But how does a waveform re- 
late to tonal quality? 

Waveforms 

Figure 1 shows a sine wave at the fundamental frequency (all 
pure tones are sine waves) and at the first overtone or second 
harmonic. Notice that when we add the two waveforms to- 
gether, the result no longer exactly resembles a sine wave. 

Figure 1. Fundamental and Sound Harmonics Combined 
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In Figure 2, we've continued adding sine waves of higher 
harmonics. You can see that the resulting total waveshape is 
beginning to resemble a sawtooth, one of the waveforms 
available from the Commodore 64 s Sound Interface Device 
(SID). If we kept adding the higher harmonics until we 
reached infinity, we would have a perfect sawtooth. 

Figure 2. Adding Third and Fourth Harmonics Creates 
Sawtooth 
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-TOTAL (SAWTOOTH) 
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So the shape of the wave actually defines the harmonic con- 
tent of the sound. Since all pure tones are sine waves, the 
shape of the wave generated by a sound synthesizer is ac- 
tually assembled from sine waves that are multiples of the 
fundamental frequency. 

The Commodore 64's SID has a choice of three basic 
waveforms and white noise, which is a collection of random 
frequencies. The three waveforms are a triangular wave, a 
pulse wave, and a sawtooth wave. The pulse wave has a vari- 
able pulse width, or duty cycle, which allows you additional 
freedom to vary the color of the sound produced. None of 
these waveshapes corresponds exactly to the sound produced 
by any instrument. It is also impossible to duplicate the com- 
plex harmonics of a real instrument simply by choosing one of 
these three waveforms. They do, nevertheless, give you the 
flexibility to produce a wide variety of color content, and you 
can get close to the particular sound you're seeking. 
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The harmonic content of the triangular wave diminishes 
very quickly, and the color of the wave consists almost en- 
tirely of the fundamental frequency. The sawtooth wave is the 
richest in terms of harmonics, and the pulse wave falls in be- 
tween. However, since the pulse width of the pulse wave can 
be varied, it can also contain a great variety of harmonic con- 
tent. Figure 3 illustrates the three different waveforms avail- 
able through your 64's SID chip. 



Figure 3. Waveform Shapes 
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Pulse wave has 50 percent duty cycle. 
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Sound Envelopes 

Earlier we said that sound consists of two qualities, frequency 
and amplitude. We've discussed primary frequency and how 
harmonic overtones are defined by the shape of the wave, but 
what about amplitude, or loudness? 

We don't mean how loud the sound is simply in the sense 
of volume, but rather how quickly the sound rises to its full 
strength and how quickly it dies down again to silence. 

If you play an organ, you know that the sound of a note 
almost immediately reaches its full strength after you press the 
key and just as quickly dies down when you release the key. 
To our ears, it's just about instantaneous. 

This is quite different from plucking a guitar string, where 
the sound quickly (but not quite instantaneously) reaches its 
full height and then slowly dies down, so that the tone contin- 
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ues several seconds after the note was struck. Violins, xylo- 
phones, banjos, and woodwinds are all different in the way 
that the sound rises, is sustained, and then dies down. Generally, 
these qualities are referred to as the envelope of the sound. 

If you look at Figure 4, you'll see how a sound looks if 
you could feed it into an oscilloscope. We can see the shape of 
the wave. The shape of the envelope defines the characteris- 
tics of a sound in a manner very similar to the way that har- 
monic content defines a sound. 



Figure 4. The Envelope Defines the Height of Individual 
Waveforms 
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The Commodore 64 uses a four-part sound envelope (see 
Figure 5). The first phase, called the attack, is the length of 
time it takes for the sound to reach its full volume. The second 
phase is the decay. During this phase, the sound decreases 
from the peak achieved during the attack phase to the level 
set for the sustain phase. During the third or sustain phase, the 
volume remains constant. In the final phase, the release, the 
volume decreases to zero. 
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Figure 5. Attack/Decay/Sustain/Release (ADSR) 
Envelope 
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Not all sounds have this four-part volume envelope. 
Some have only an attack and release phase, and some (like 
the organ) have only the sustain phase. We can achieve all 
these on the Commodore 64 simply by setting the other 
phases to zero. 

The Commodore's SID allows us to set the attack, decay, 
and release phases to any one of 15 values or to zero. The 
times that correspond to the 15 values can be seen in Table 1. 
The times vary from milliseconds to seconds. Note that the ta- 
ble does not include times for the sustain phase. The SID chip 
allows you to set a sustain volume level, but you must control 
the length of the sustain by opening and closing a gate. That 
gate is bit of the fourth register in the SID chip. We'll cover 
this in greater detail later. 

To turn the sound on in the SID chip, you must open the 
gate. As soon as the gate is opened, the sound level begins to 
rise at a rate determined by the attack. Once the peak level is 
reached, the sound begins to decline to the level set for the 
sustain. The rate at which it declines is defined by the decay. 

However, if the sustain level is set at 15 (the highest 
choice), the decay phase is essentially meaningless because the 
sustain level and the peak of the attack phase are the same. 
Thus the decay phase has nowhere to decay to. 
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Table 1. ADSR Envelope Values and Times 

VALUE ATTACK DECAY RELEASE 

RATE RATE RATE 

2 ffls 6 ms 6 ms 

1 8 ms 24 ms 24 ms 
J""] 2 16 ms 48 ms 48 ms 

3 24 ms 72 ms 72 ms 

4 38 ms 114 ms 114 ms 

5 56 ms 168 ms 168 ms 

6 68 ms 204 ms 204 ms 

7 80 ms 240 ms 240 ms 

8 100 ms .3 sec .3 sec 

9 .25 sec .75 sec .75 sec 

10 .5 sec 1.5 sec 1.5 sec 

11 .8 sec 2.4 sec 2.4 sec 

12 1 sec 3 sec 3 sec 

13 3 sec 9 sec 9 sec 

14 5 sec 15 sec 15 sec 

15 8 sec 24 sec 24 sec 

Once the decay phase is complete, the sustain cycle will 
continue as long as the gate is open. When the gate is closed, 
the release phase begins and the volume falls from the sustain 
level to zero. So, how long is the sustain phase? 

Obviously, the sustain phase lasts as long as the time that 
the gate is open, minus the time required for the attack and 
decay phases. If you close the gate too soon, you may have no 
sustain phase at all. If you close it really early, you'll cut short 
the decay or the attack and decay phases as well. Figure 6 shows 
j| several combinations of attack, decay, and release values and 

how they interact with the gate to produce the sound envelope. 
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Figure 6. Standard Four-Part Envelope 
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Figure 6a. Organlike Envelope 
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'— "? Figure 6b. Pianolike Envelope 
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Figure 6c. Pianolike Envelope 
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Programming Sound 

The SID is really a quite amazing chip. It uses just 29 pro- 
grammable registers, and with those (you won't even use 
them all) you can produce a great variety of sounds. 

For our purposes, we'll consider only the first 21 registers 
in the SID chip. We'll also briefly consider the twenty-fifth 
register, which sets the volume (no volume, no sound). 
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The first 21 registers break down into three groups of 
seven. That's because the SID has three voices, and the seven- 
register groups perform almost the same function for all three 
voices. That makes it far easier — all you have to learn is how 
to program seven registers. 

Table 2 gives the functions of the seven register groups. 
Registers and 1 hold the frequency. Register contains the 
least significant byte, and register 1 the most significant byte. 
With two registers you can store only numbers less than 
65512. That sounds pretty high, but the frequency contained 
in the two registers relates to the internal oscillator (clock) of 
the Commodore 64 and does not translate to the frequency we 
are familiar with in terms of cycles per second (hertz). To 
translate into hertz, you must multiply the frequency con- 
tained in the two registers by .059605. This means that the 
highest frequency the SID can produce is 3904 hertz. The fre- 
quency can go as low as zero, but the sound system in your 
TV set probably won't reproduce a frequency of less than 50 
hertz (or 840 to the SID). 

The easy way to load the frequency into the two registers 
is to use this program segment: 

100 S=54272:REM (STARTING ADDRESS OF SID CHIP) 

110 F0=FR/. 059605: REM FR=FREQUENCY IN CYCLES/SECON 

D 
120 F2=INT(F0/256):F1=F0-256*F2 
130 POKE S,Fl:POKE S+1,F2 

If you already know the frequency in terms of the SID chip, 
you can omit line 110. 

The next two registers (2 and 3) contain the pulse width 
of the rectangular pulse wave. This value is a 12-bit number 
with the eight least significant bits stored in register 2, and the 
four most significant stored in bits 3-0 of register 3. The four 
remaining bits of register 3 are not used. If you are using 
something other than a pulse wave, you don't have to worry 
about doing anything with these two registers. 

The pulse width can take a value from to 4095, which 
corresponds to a range of 0-100 percent for the duty cycle. A , . 

value of 2048 implies a 50 percent duty cycle and generates a L_i 

square wave. If these two registers are set to zero and the 
pulse wave is selected, no sound will be produced. 
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The following program segment can be used to set the 
pulse width: 

140 P0=DC*4095/100:REM DC=DUTY CYCLE IN % 
150 P2=INT(P0/256):P1=P0-256*P2 
160 POKE S+2,P1:P0KE S+3,P2 

A duty cycle of 10 percent will sound exactly the same as a 
duty cycle of 90 percent. For some advanced applications, the 
two may sound different, but for a solitary pulse wave, there 
will be no difference. 

Table 2. Map of Sound Interface Device (SID) Registers 

ADDRESS REG • BIT 7 BIT 6 BIT S BIT 4 BIT 3 BIT 2 BIT 1 BIT 



FREQUENCY 
FREQUENCY 



LOU ORDER BYTE 
HIBH ORDER BYTE 



VOICE ONE 
FREQUENCY REBISTERS 

54272 t< 

54273 1 t< 

PULSE NIDTH REGISTERS 

54274 2 C< PULSE NIDTH LON ORDER BYTE >: 

54275 3 C< BITS 7-4 NOT USED— — >3C HIGHEST 4 BITS OF PULSE NIDTH: 

CONTROL REGISTER 

54276 4 [NOISE3CPULSE 3CSAWTH. 3CTRIANB31 TEST H RING 3[ SYNC 1[ GATE 
ATTACK/DECAY REGISTER 

54277 5 t< ATTACK VALUE >3C<-r- DECAY VALUE 

SUSTAIN/RELEASE REGISTER 

54278 6 [< SUSTAIN LEVEL >K< RELEASE VALUE ! 



— >: 

— >: 



LOW ORDER BYTE 
HIGH ORDER BYTE 



VOICE TWO 
FREQUENCY REBISTERS 

54279 7 C< FREQUENCY 

S42BO S [< FREQUENCY 

PULSE NIDTH REGISTERS 

542B1 9 [< PULSE NIDTH LON ORDER BYTE >! 

542B2 10 C< BITS 7-4 NOT USED— >JC HIGHEST 4 BITS OF PULSE NIDTH: 

CONTROL REGISTER 

54283 11 [N0ISE3CPULSE 3CSAHTH. 3tTRIANG3[ TEST H RING 31 SYNC 3[ GATE 

ATTACK/DECAY REGISTER 

542B4 12 t< ATTACK VALUE >3C< DECAY VALUE : 

SUSTAIN/RELEASE REGISTER 

54285 13 [< SUSTAIN LEVEL >3[< RELEASE VALUE : 



LOU ORDER BYTE 
HIGH ORDER BYTE 



VOICE THREE 
FREQUENCY REGISTERS 

54286 14 C< FREQUENCY 

542G7 15 C< FREQUENCY 

PULSE NIDTH REGISTERS 

542BS 16 C< — PULSE NIDTH LON ORDER BYTE 

54289 17 C< BITS 7-4 NOT USED >][ HIGHEBT 4 BITB OF PULSE NIDTH: 

CONTROL REGISTER 

54290 18 CN0ISE3CPULSE 3CSANTH. 3ITRIANS3C TEST 31 RINS ]C SYNC 3t BATE 
ATTACK/DECAY REGISTER 

54291 19 t< ATTACK VALUE >3£< DECAY VALUE >: 

SUSTAIN/RELEASE REGISTER 

54292 20 t< SUSTAIN LEVEL >3C< RELEASE VALUE >: 



VOLUME REGISTER 

54296 24 C-NOT COVERED IN THIS ARTICLE-] C<- 



VOLUME CONTROL 



Now that we've covered the general aspects of sound and 
music programming on the 64, let's look at some more com- 
plicated techniques. 

The Control Register 

The control register (register 4 in Table 2) is the most complex 
register in the chip. Each of the eight bits in this register has a 
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has a different function. Dealing with individual bits within a 
one-byte register is often a problem for BASIC programmers. 
One very easy way to approach the problem is to use the 
following: 

170 B(0)=1 

180 B(1)=0 

190 B(2)=l 

200 B(3)=0 

210 B(4)=0 

220 B(5)=0 

230 B(6)=0 

240 B(7)=l 

250 FOR 1=0 TO 7 

260 Q=Q+B(I)*2fl 

270 NEXT I: POKE S+4.Q 

This is not a very efficient way of programming, but by 
defining the bits we want (that is, B(I) where I = the bit num- 
ber) in terms of a 1 and those we don't want in terms of a 0, 
this will work. It will be somewhat slow and cannot be used 
in a loop that must execute quickly, which is usually the case 
when doing musical programming. 

A quicker method is to think of the bits in terms of then- 
values in an eight-bit binary number. Bit has a value of 1, 
bit 1 is 2, bit 2 is 4, bit 3 is 8, and so on, until bit 7 equals 
128. In the lines above, we set bits 0, 2, and 7 on; to use the 
more efficient technique of bit values, we can simply add their 
values: 1+4 + 128=133. POKEing 133 into the register then 
sets those three bits. It's much simpler, but requires you to 
add up the bit values before writing the program. 

The first bit of the control register, bit 0, acts as the gate 
to turn the sound on and off. Remember that when the gate is 
opened (when bit is set to 1), the attack phase of the volume 
envelope begins. When the gate is closed (bit is set to 0), the 
release phase of the envelope is triggered. If the gate is closed 
prematurely, the sustain, decay, and even a portion of the at- 
tack phase may be omitted. Opening and closing the gate is 
actually very easy. Just remember that POKEing an odd value 
in register 4 turns the gate on and that POKEing an even value 
turns the gate off. 

Watch the Timing 

Be careful of turning the gate off by POKEing zero into the 
register. That will also clear the waveform bits (which we'll 
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discuss in a second) and will result in your envelope having 
no release phase. 

The next bit, bit 1, is the sync bit. If this bit is on, the out- 
put from voice 1 will be synchronized with the output from 
voice 3. Sync in this case means that the output of voice 1 will 
be replaced with a logical AND of the output of voice 1 and 
voice 3. Another way to think of it is that voice 1 is turned on 
and off with the frequency of voice 3. In order for this bit to 
have any effect, voice 3 must be set to a frequency less than 
voice 1. The best way to understand this effect is to listen to 
it. Program 4, "Laser," contains a demonstration using the 
sync bit. When using sync, the lower frequency will predomi- 
nate. The effect works best when the lower frequency is 10-50 
percent of the higher. 

The sync bit has a slightly different effect in the other two 
voices. In voice 2 it produces a sync of voice 2 with voice 1, 
and in voice 3 it produces a sync of voice 3 with voice 2. 

The next bit, bit 2, is the ring modulation bit. When this 
bit is set on, it produces nonharmonic overtones that sound 
like a bell. In order for this effect to take place, the triangular 
waveform must be selected for voice 1, and voice 3 must have 
a frequency other than zero. 

Ring modulation in the other voices works like the sync 
bit; that is, for voice 2 to be ring modulated, voice 1 must 
have a nonzero frequency. For voice 3, voice 2 must be non- 
zero. In all cases the triangular waveform must be selected for 
the affected voice. 

Bit 3 in the control register is the test bit. Setting the test 
bit to one will turn off the sound generator. This technique will 
generally be used only by machine language programmers. 

Bits 4-7 are the waveform bits. Turning on bit 4 will se- 
lect the triangular waveform; bit 5 will select the sawtooth; bit 
6 the pulse; and bit 7 white noise (like the hissing sound you 
hear between stations on a radio). 

At this point you must be asking yourself "What happens 
if more than one bit is selected?" The answer is that the two 
r-*\ (or more) waveforms will be ANDed together (a logical AND 
'- - will be done on the waveforms). Commodore cautions that 

selecting more than one waveform while using the white noise 

n waveform could cause the oscillator to go silent, so don't com- 

bine waveforms using the white noise waveform. Even while 
avoiding the white noise waveform, it's still possible to gen- 
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erate four more waveform shapes using combinations of the 
sawtooth, triangular, and rectangular pulse waveforms. How- 
ever, the volume declines significantly when combining 
waveforms. 

Register 5 contains the attack and decay values for voice 
l's sound envelope. (Registers 12 and 19 serve the same func- 
tion for voices 2 and 3 respectively.) The four-bit attack value 
is held in bits 7-4. The four-bit decay value is held in bits 3-0. 
The values can be loaded like this: 

300 A=13:D=5:REM ATTACK=I 3 , DECAY=5 
310 POKE S+5,16*A+D 

Register 6 contains the sustain level and the release value 
for voice 1. (Again, registers 13 and 20 are used for voices 2 
and 3.) As above, the sustain level is held in bits 7-4, and the 
release value in bits 3-0. Program them in the following manner: 

320 SU=13:R=4:REM SUSTAIN=13 , RELEASE=4 
330 POKE S+6,16*SU+R 

We've covered the seven register groups and shown how 
to load them. Program 1, "Twiddle," allows you to explore all 
possible combinations using these seven registers. The pro- 
gram lets you set and change any of the values and then listen 
to an eight-note scale governed by those values. If you sit 
down and play with the program for a couple of hours, you'll 
get a good understanding of how changing the SID chip 
parameters affects a sound. The program is also useful for 
demonstrating how to play a tune within a BASIC program. 
(Note that pressing almost any key not displayed on the 
screen will play the sound scale you've set up.) 

From Sound to Music 

To play actual music, you generally write a program which 
will load all the parameters except the waveform and the fre- 
quency. At this point you select the note to be played and 
POKE the appropriate values into the frequency register. Then 
you POKE the waveform value plus one (16+1 = 17 for trian- 
gular, 33 for sawtooth, 65 for pulse, and 129 for white noise) 
into register 4 (the control register). Adding a 1 causes the gate 
bit (bit 0) to be turned on, and the tone begins. The program 
waits a certain period of time and then POKEs the waveform 
value (16, 32, 64, or 128) into the register. By POKEing an 
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even number into the register we turn the gate off, and the 
note begins its release phase and gradually dies out (according 
to the release value that you've set). 
r"~? A simple way to time the note is to use a delay loop. An 

empty loop (like the one below) will execute 1000 cycles in 
just about one second. 

400 FOR 1=1 TO 1000:NEXT'l 

Therefore, each cycle is just about 1/1000 second (or a milli- 
second). To turn the note on and off, the program line will 
look like this: 

400 POKE S+4,17:F0R 1=1 TO 250 :NEXT: POKE S+4,16 

The above program line will play a note for about one quarter 
of a second. 

This technique works well for a single voice, but it may 
not work at all for more than one voice. The problem is that 
while the computer is timing the duration of one note, it can- 
not be separately timing voices 2 and 3. We could fill the 
empty loop with timing routines for voices 2 and 3, but that 
would change the execution time for the loop and throw the 
timing off. 

A second technique is to use the internal timer of the 
Commodore 64 through the use of variable TI. The variable TI 
is updated automatically on the Commodore 64 and increases 
by a value of one every 1/60 second. We can use this timer to 
time the duration of our notes: 

500 T0=TIiREM INTIALIZE THE VARIABLE "T0" 

510 T0=T0+D:REM INCREASE "T0" BY DURATION OF THE F 

IRST NOTE - D 
520 IF T0<=TI THEN GOSUB 1100 :REM CHECK IF THE TIM 

E IS UP 
525 REM IF SO SUBROUTINE 1100 WILL CHANGE NOTES 
530 GOTO 520:REM IF NOT CHECK TIME AGAIN 

The key to using this routine is to make sure that the sub- 
routine executes quickly, at least while using multiple voices. 
Program 2, "Tune," illustrates this technique using all three 
voices. But this method isn't problem-free. We want to re- 
produce the rhythm of the original tune as accurately as pos- 
sible. It's physically impossible to change the frequency of all 
three voices at once. Using BASIC, it's somewhat difficult to 
change all three voices in less than 1/6 second. For that rea- 
son, we split all the frequencies into the higher- 
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and lower-order bytes before the tune begins. We can then » i 

change the frequency of all three voices in about 1/10 second. W 

For most tunes that will be satisfactory. However, for a fast 
tempo, you might have to omit the second or third voice in 
order to maintain the rapid changes of the first voice. 
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Sound Effects , . 

Let's briefly explore sound effects: the noise of a firing laser, |_J 

or an explosion, siren, or any other sound we need. How can 
we do it? 

Unfortunately, there's no direct way. The best approach is 
trial and error. Listen to the sound carefully. Most sounds in 
nature cannot be duplicated simply by selecting the right 
waveform and envelope. Generally, the frequency is also ac- 
tively changing during the sound's life. While you listen to (or 
think about) the sound you want, consider what's happening 
to the frequency. Is it rising or falling? How quickly? 

Also consider the volume. Many volume envelopes can- 
not be duplicated using the attack/decay/sustain/release en- 
velope. You'll often have to change the volume level through 
program control, using the volume register (register 24). 

Programs 3 and 4, "Blast-off" and "Laser," illustrate one 
approach. In Blast-off, both the frequency and volume are 
modulated by the program. Laser demonstrates the sync fea- 
ture and modulates the frequency to produce the laser sound. 
Both programs were written after much trial and error. 

Many authors, when converting programs to the 64, sim- 
ply drop the sound effects or stop at a sound which is only 
vaguely like the one they want. Be persistent; the 64 can ac- 
curately produce almost any sound. As you gain experience, 
you'll find that the trial and error phase will decrease , 

significantly. ^J, 

Twiddle (Program 1) illustrates the basic methods of loading 
the SID registers and lets you experiment by changing the wave- 
form and ADSR envelope while listening to the musical scale. J^J 

Tune (Program 2) uses the three voices to play an English 
folk tune. Don't be discouraged by the long list of DATA 
statements. Voice 1 repeats the same statements four times, {^J, 

and there is considerable repetition in voices 2 and 3. Once 
you've typed in the first few DATA statements, you can sim- 
ply change the line numbers with the screen editor to produce j^J 
the remainder. 
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Tune can be used to produce any melody by changing the 
values in the DATA statements. Each note is represented by a 
pair of values. The first represents the duration of the note (in 
sixtieths of a second). A value of 30-40 is appropriate for a 
quarter note. The second value is the frequency of the note. 
Appendix E in the Commodore 64 Programmer's Reference Guide 
offers a simple frequency table. Below are the values for the 
12-semitone scale starting at middle C. 

C— 4291 C#— 4547 

D— 4817 D#— 5103 
E— 5407 

F— 5728 F#— 6069 

G— 6430 G#— 6812 

A— 7217 A#— 7647 
B— 8101 

Notes for other octaves can be calculated by doubling or 
halving these values, depending upon whether you're going 
one octave up (doubling) or one octave down (halving). 

It's useful to convert one measure of music to one DATA 
statement if you can. This makes it easier to match the voices. 

Voice 1 is the sound of a flute, voice 2 is a mandolin, and 
voice 3 is a guitar. 

Blast-off and Laser are supposed to produce the sound of 
their titles. They're pretty straightforward. 

Program 1. Twiddle 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C, 
when you type in the following four programs. 

5 S=54272 :rem 201 

7 DIM A(15),D(15) : rem 48 

10 PORL=STOS+24:POKEL,0:NEXT :rem 53 

15 GOSUB 1000 srem 167 

17 GOSUB 1100 :rem 170 

18 GOSUB 1200 :rem 172 
20 PRINT"{CLR}";TAB(5);"TOUCH W FOR WAVEFORM" 

:rera 5 
30 PRINT TAB(5)"TOUCH A FOR ATTACK RATE" : rem 32 
40 PRINT TAB(5) "TOUCH S FOR SUSTAIN LEVEL": rem 238 
45 PRINT TAB(5)"TOUCH T FOR SUSTAIN TIME" : rem 171 
50 PRINT TAB (5) "TOUCH R FOR RELEASE" :rem 80 
60 PRINT TAB(5)"TOUCH D FOR DECAY" : rem 168 
70 PRINT TAB (5) "TOUCH P FOR PULSE WIDTH" :rem 88 
72 PRINT TAB(5)"TOUCH B TO SET DEAD TIME" : rem 40 
75 PRINT TAB(5)"TOUCH + OR - FOR FREQUENCY CHANGE" 

:rem 85 
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80 GET A$:IF A$=""THEN80 
82 IF A$="W"THEN 200 
84 IF A$="A" THEN 250 



86 IF A$="S" THEN 
88 



300 



IF A$="R" THEN 350 
IF A$="D" THEN 400 
IF A$="P" 



90 

92 IF A$="P" THEN 450 

94 IF A$="T" THEN 500 

96 IF A$="+" THEN GOSUB 1400 

97 IF A$="B" THEN 550 

98 IF A$="-" THEN GOSUB 1450 
100 REM 

105 POKE S+24,15 

110 POKE S+5,16*A+D 

120 POKE S+6,16*SL+R 

130 POKE S+3,INT(P/256) 

140 POKE S+2,P-256*INT(P/256) 

150 FOR 1=1 TO 8 

160 IFINT(F(I))<=65536THENPOKE S+1,INT(F( 

170 POKE S,F(l)-256*INT(F(l)/256) 

180 IFINT(F(I))<=65536THENP0KE S+4,2t(W+3 

185 FORJ=l TOT: NEXT 

187 POKE S+4,2t(W+3) 

188 FORJ=lTOB:NEXT 
190 NEXT I: GOTO 20 

200 PRINT "WAVEFORM IS";" - ";W 

202 PRINT "1=TRIANGLE" 

204 PRINT" 2=SAWTOOTH" 

206 PRINT "3=PULSE" 

208 PRINT"4=NOISE" 

210 INPUT "ENTER WAVEFORM (1-4) ";W 

215 IFW<1 ORW>4THEN210 

220 GOTO 100 

250 PRINT "ATTACK RATE IS"; A 

260 INPUT"ENTER ATTACK RATE (0-15 )";A 

265 IFA<0ORA>15THEN260 

270 GOTO 100 

300 PRINT"SUSTAIN LEVEL IS";SL 

310 INPUT"ENTER SUSTAIN LEVEL (0-15)";SL 

315 IFSL<0ORSL>15THEN310 

320 GOTO 100 

350 PRINT 1 ' RELEASE RATE IS";R 

360 INPUT "ENTER RELEASE RATE (0-15 )";R 

365 IFR<0ORR>15THEN360 

370 GOTO 100 

400 PRINT"DECAY RATE IS";D 

410 INPUT"ENTER DECAY RATE (0-15) ";D 

415 IFD<0ORD>15THEN410 



: rem 243 
:rem 247 
:rem 232 
:rem 248 
: rem 254 
:rem 229 
:rera 248 
:rem 250 
:rem 131 
:rem 240 
:rem 140 
:rem 117 
:rem 59 
:rem 225 
:rera 79 
:rem 248 
:rem 60 
:rem 15 
D/256) 
:rem 229 
:rem 2 
)+l 
:rem 244 
:rem 173 
:rem 67 
: rem 158 
:rem 247 
: rem 164 
:rem 41 
:rem 79 
:rem 98 
:rem 90 
:rem 193 
:rem 23 
:rem 94 
: rem 100 
:rem 94 
: rem 38 
:rem 99 
:rem 121 
:rem 115 
:rem 218 
:rem 95 
s rem 191 
:rem 185 
:rem 74 
:rem 100 
:rem 18 
:rem 12 
:rem 38 
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f**^ 420 GOTO 100 :rem 96 

'., i 450 PRINT"PULSE WIDTH IS" ; 100*P/4095 : rem 86 
460 INPUT"ENTER PULSE WIDTH (0-100)";P :rem 191 
465 IPP<0ORP>100THEN460 : rem 115 

470 P=P*4095/100 :rem 52 

480 GOTO 100 :rem 102 

500 PRINT "SUSTAIN TIME IS" ;T; "MILLISECONDS" 
f*"s, :rem 236 

,J 1 510 PRINT"MINIMUM TIME FOR ATTACK/DECAY CYCLE IS:" 

: rem 44 
515 PRINT A(A)+D(D); "MILLISECONDS" : rem 4 

520 INPUT "ENTER TIME IN MILLISECONDS" ;T :rem 196 
530 GOTO 100 srem 98 

550 PRINT"DEAD TIME IS" ;B; "MILLISECONDS" :rem 198 
560 INPUT" INPUT DEAD TIME IN MILLISECONDS" ;B 

:rem 214 
570 GOTO 100 :rem 102 

1000 W=1:A=8:D=6:R=9:SL=12:P=2000:T=302 :rem 203 
1010 RETURN :rem 162 

1100 F0RI=1T08:READF(I):NEXT :rem 234 

1110 DATA 4291,4817,5407,5728,6430,7217,8101,8538 

:rem 155 
1120 RETURN :rem 164 

1200 FOR I=0TO15:READ A(I) :D(I)=3*A(I) :NEXT 

:rem 160 
1210 DATA 2,8,16,24,38,56,68,80,100,250,500,800,10 
00,3000,5000,7000 :rem 186 

1220 RETURN :rem 165 

1400 FOR I=lTO 8:F(I)=F(I)*2:NEXT:RETURN :rem 100 
1450 FOR I=1T08:F(I)=F(I)/2:NEXT:RETURN : rem 110 
2000 T0=TI :rem 32 

2010 FOR I=1TO1000:NEXT : rem 62 

2020 PRINT TI-T0 :rem 159 

Program 2. Tune 

r— I 5 DIM D(3,200),F(3,200),G(3,200) :rem 254 

'. J 10 S=54272 :rem 245 

20 FORI=0TO24:POKES+I,0:NEXT :rem 13 

30 F0RI=1T03 :rem 215 

M 40 J=l :rem 28 

- -- 50 READ D(I,J),F(I,J) :REM GET FREQ & DURATION 

:rem 15 
i — , 55 G(I,J)=INT(F(I,J)/256):F(I,J)=F(I,J)-256*G(I,J) 
f Y :rem 202 

60 IF F(I,J)=0 AND D(I,J)=0 THEN 90 : rem 228 
70 J=J+l:GOTO 50 :rem 108 

90 PRINT "VOICE";I;" ";J;" NOTES" :rem 64 

100 NEXT I :rem 25 

110 POKES+24,15 :rem 55 
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200 REM SET VOICE ONE s rem 186 

210 W1=16:REM TRIANGLE WAVEFORM : rem 154 

220 POKES+5,6*16+0:REM ATTACK=6 , DECAY=0 :rem 12 
230 POKES+6,10*16+0:REM SUSTAIN=10, RELEASE=0 

:rem 110 
300 REM SET VOICE TWO : rem 211 

310 W2=32:REM SAWTOOTH WAVEFORM :rem 189 

320 POKES+12, 0*16+9: REM ATTACK=0 , DECAY=9 :rem 65 
330 POKES+13,00*16+0:REM SUSTAIN=00,RELEASE=00 

:rem 203 
400 REM SET VOICE THREE : rem 82 

410 W3=64:REM RECTANGULAR WAVE :rem 79 

420 POKES+17,3:REM DUTY CYCLE 20% : rem 101 

430 POKES+19, 3*16+10 :REM ATTACK=3,DECAY=10:rem 160 
440 POKES+20,0*16+0:REM SUSTAIN=0 : RELEASE=0 

:rem 104 
500 J=0:K=0:L=0:T1=TI:T2=T1:T3=T1 :rem 207 

600 IF T1=<TI THEN GOSUB 1100 :rem 49 

610 IF T2=<TI THEN GOSUB 1200 : rem 52 

620 IF T3=<TI THEN GOSUB 1300 :rem 55 

630 GOTO 600 :rem 104 

1000 ON I GOTO 1100,1200,1300 :rem 129 

1100 J=J+1:T1=T1+D(1,J) :rem 215 

1115 IFD(1,J)=0 THEN POKES+4,Wl :POKES+ll ,W2 :POKES+ 
18,W3:END : rem 217 

1117 POKES+4,Wl :rem 95 

1120 POKES, F(l/J) :POKES+l,G(l,J) :rem 51 

1140 POKES+4,Wl+l: RETURN :rem 209 

1200 K=K+1:T2=T2+D(2,K) : rem 222 

1210 POKE S+11,W2 :rem 136 

1220 POKE S+7,F(2,K):POKES+8,G(2,K) :rem 161 
1240 POKES+ll,W2+l:RETURN :rem 1 

1300 L=L+1:T3=T3+D(3,L) :rem 229 

1310 POKES+18,W3 :rem 145 

1320 POKES+14,F(3,L) :POKES+15 ,G( 3 ,L) :rem 2 
1340 POKES+18,W3+l:RETURN : rem 10 

2000 REM NOTES FOR VOICE ONE : rem 110 

2010 DATA 30,4051 :rem 54 

2020 DATA 30,5407,30,4051,30,6069,30,4051 :rem 215 
2030 DATA 30,6430,30,6069,30,5407,30,4050 :rem 218 
2040 DATA 30,5407,30,4050,30,6069,30,4050 :rem 215 
2050 DATA30, 6430, 30, 7217, 30 ,8101, 30, 4050 :rem 210 
2060 DATA30,5407, 30,4050, 30,6069, 30,4050 :rem 217 
2070 DATA30, 6430, 30, 6069, 30, 5407, 30, 4050 :rem 222 
2080 DATA30, 5407, 30, 4050, 30, 6069, 30, 4817 : rem 230 
2090 DATA60, 5407, 30, 5407, 30, 4050 :rem 86 

2120 DATA 30,5407,30,4051,30,6069,30,4051 :rem 216 
2130 DATA 30,6430,30,6069,30,5407,30,4050 :rem 219 
2140 DATA 30,5407,30,4050,30,6069,30,4050 :rem 216 
2150 DATA30, 6430, 30, 7217, 30, 8101, 30, 4050 :rem 211 
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2160 DATA30,5407, 30,4050, 30,6069, 30,4050 :rem 218 

2170 DATA30, 6430, 30, 6069, 30, 5407, 30, 4050 :rem 223 

2180 DATA30, 5407, 30, 4050, 30, 6069, 30, 4817 : rem 231 

2190 DATA120,5407 :rem 117 

2220 DATA 30,5407,30,4051,30,6069,30,4051 :rem 217 

2230 DATA 30,6430,30,6069,30,5407,30,4050 :rem 220 

2240 DATA 30,5407,30,4050,30,6069,30,4050 :rem 217 

2250 DATA30, 6430, 30, 7217, 30, 8101, 30, 4050 :rem 212 

2260 DATA30, 5407, 30, 4050, 30, 6069, 30, 4050 :rem 219 

2270 DATA30, 6430, 30, 6069, 30, 5407, 30, 4050 :rem 224 

2280 DATA30,5407, 30,4050, 30,6069, 30,4817 :rem 232 

2290 DATA120,5407 :rem 118 

2320 DATA 30,5407,30,4051,30,6069,30,4051 :rem 218 

2330 DATA 30,6430,30,6069,30,5407,30,4050 : rem 221 

2340 DATA 30,5407,30,4050,30,6069,30,4050 :rem 218 

2350 DATA30, 6430, 30, 7217, 30, 8101, 30, 4050 :rem 213 

2360 DATA30, 5407, 30,4050, 30,6069, 30,4050 : rem 220 

2370 DATA30, 6430, 30, 6069, 30, 5407, 30, 4050 :rem 225 

2380 DATA30, 5407, 30, 4050, 30, 6069, 30, 4817 :rem 233 

2390 DATA120,5407 :rem 119 

2900 DATA 0,0 :rem 113 

3000 REM NOTES FOR VOICE TWO : rem 135 

3010 DATA990,0 :rem 220 

3020 DATA60, 2703, 60, 2408 : rem 201 

3030 DATA30, 2145, 30, 2025, 60, 2145 :rem 73 

3040 DATA60, 2025, 60, 1804 :rem 199 

3050 DATA30, 1607, 30, 1517,60, 1351 : rem 80 

3060 DATA60, 2703, 60, 2408 : rem 205 

3070 DATA30, 2145, 30, 2025, 60, 2145 : rem 77 

3080 DATA60, 2025, 60, 1804 :rem 203 

3090 DATA30, 1607, 30, 1517,60, 1351 :rem 84 

3120 DATA60, 2703, 60, 2408 :rem 202 

3130 DATA30, 2145, 30,2025,60,2145 :rem 74 

3140 DATA60, 2025, 60, 1804 :rem 200 

3150 DATA30, 1607, 30, 1517,60, 1351 :rem 81 

3160 DATA60, 2703, 60, 2408 :rem 206 

3170 DATA30, 2145, 30,2025,60,2145 :rem 78 

3180 DATA60, 2025, 60, 1804 :rem 204 

3190 DATA30, 1607, 30, 1517, 60, 1351 : rem 85 

3220 DATA60, 2703, 60, 2408 :rem 203 

3230 DATA30, 2145, 30, 2025, 60, 2145 :rem 75 

3240 DATA60, 2025, 60, 1804 : rem 201 

3250 DATA30, 1607, 30, 1517, 60, 1351 : rem 82 

3260 DATA60, 2703, 60, 2408 :rem 207 

3270 DATA30,2145,30,2025,60,2145 : rem 79 

3280 DATA60, 2025, 60, 1804 :rem 205 

3290 DATA30, 1607, 30, 1517,60, 1351 : rem 86 

3900 DATA 0,0 :rem 114 

4000 REM NOTES FOR VOICE THREE : rem 6 

4010 DATA1950,0 :rem 10 
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4020 


DATA 


60,2703 


4030 


DATA 


30,2703 


4040 


DATA 


30,2703 


4050 


DATA 


15,3215 


4060 


DATA 


45,4050 


4070 


DATA 


45,4050 




15,3034 


4080 


DATA 


60,2703 


4090 


DATA 


30,2703 


4100 


DATA 


30,2703 


4110 


DATA 


15,3215 


4120 


DATA 


45,4050 


4130 


DATA 


45,4050 




15,3034 


4140 


DATA 


60,2703 


4150 


DATA 


30,2703 


4160 


DATA 


60,4050 


4170 


DATA 


30,4050 


4900 


DATA 


800,0,0 



,60,2408 

,15,2703,15,2703,60,2025 
, 30, 2703, 30, 3034, 30, 3034 
,15,3215,15,3215,15,3215 

,15,3608,45,4050,15,3608 
, 15 , 3608 , 15 ,4050 , 15 , 3608 

,60,2408 

,15,2703,15,2703,60,2025 
, 30 , 2703 , 30 , 3034 , 30 , 3034 
,15,3215,15,3215,15,3215 



, 15 , 3608 , 45 , 4050 , 15 , 3608 
, 15 , 3608 , 15 , 4050 , 15 , 3608 

,60,2408 

,15,2703,15,2703,60,2025 

,60,4050 

, 15 , 4050 , 15 , 4050 , 60 , 4050 

,0 



:rem 202 
:rera 215 
:rem 206 

,60,3034 
:rem 99 
:rem 234 

,15,3215, 
:rem 249 
:rem 208 
:rem 221 
:rem 203 

,60,3034 
:rem 96 
:rem 231 

,15,3215, 
:rem 246 
:rera 205 
:rem 218 
:rem 199 
:rem 211 
:rem 147 
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Program 3. Blast-off 

10 S=54272 :rem 245 

20 FOR I-STOS+24:POKEI,0:NEXT :rem 48 

30 POKES+24,15 :rem 8 

40 FR=0500 trem 254 

50 A=0:D=0:SS=15:R=0 :rem 122 

60 W=128:P=1024 : rem 35 

70 POKES+l,INT(FR/256) : rem 17 

80 POKES, FR-256*INT(FR/256) : rem 66 

90 POKES+3,INT(P/256) : rem 205 

100 POKES+2,P-256*INT(P/256) :rem 56 

110 POKES+5,16*A+D :rem 225 

120 POKES+6,16*SS+R : rem 86 

200 P0KES+4,W+1:REM TURN SOUND ON :rem 223 

210 FORI=200TO1 STEP-1 : rem 

220 FR=FR+100:REM INCREASE FREQUENCY :rem 215 
222 IF K 45 THEN POKES+24,l/3 :REM NEAR THE END TU 

RN DOWN THE VOLUME :rem 98 

225 F2=INT(FR/256) :F1=FR-256*F2 :rem 224 

230 P0KES,F1:P0KES+1,F2 :rem 118 

240 NEXT I :rem 30 

250 P0KES+4,W:REM TURN SOUND OFF :rem 198 
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Program 4. Laser 

10 S=54272 :rem 245 

20 FOR I=STOS+24:POKEI,0:NEXT : rem 48 
30 POKES+24,143:REM VOLUME AT 15/TURN OFF VOICE TH 

REE :rem 108 

40 F50000 :rem 46 

50 A=0:D=8:SS=15:R=08 :rem 186 

60 W=064:P=1024 :rem 34 

70 POKES+l,INT(FR/256) : rem 17 

80 POKES, FR-256*INT(FR/256) : rem 66 

90 P0KES+3,INT(P/256) :rem 205 

100 POKES+2,P-256*INT(P/256) trem 56 

110 POKES+5,16*A+D : rem 225 

120 P0KES+6,16*SS+R :rem 86 

130 POKES+15,75 :rem 63 
155 POKES+4,W+3:REM USING W+3 TURNS ON{2 SPACESjGA 

TE AND SYNC : rem 32 

160 F0RI=1T025 :rem 63 
170 POKES+15,120-4*I:REM{2 SPACES } DECREASE FREQ VO 

ICE THREE :rem 180 

180 NEXT I :rem 33 

185 P0KES+4.W :rem 2 
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Sound Sculptor 

Todd Touris 

With formatted screens and a joystick-controlled 
pointer, "Sound Sculptor" gives you the ability to 
quickly and easily create your own music and 
save your creation. 
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"Sound Sculptor" uses several graphics screens to take the te- 
dium out of creating data for your music or sound programs. 
It's not difficult to use and therefore needs little explanation; a 
basic understanding of the SID chip would probably be help- 
ful, however. "Programming 64 Sound," an article elsewhere 
in this book, is a good source of information. 

Automatic LOAD 

Because there are two programs which make up Sound Sculp- 
tor, and because the first program automatically loads the sec- 
ond, you need to take some care as you type them in. Make 
sure you use "The Automatic Proofreader," found in Appen- 
dix C, as you enter Sound Sculptor. The Proofreader wUl help 
immensely in insuring error-free copies of both programs. 

If you're using tape to store Sound Sculptor, put both 
Program 1 and Program 2 on the same tape. Type in Program 
1 first, then save it. Next type in Program 2, saving it on the 
tape immediately following Program 1. Program 1 will auto- 
matically load Program 2. 

Much the same process must be used if you have a disk ] , 

drive. Both programs should be typed in and saved to the *-vJ 

same disk. Make sure you save Program 2 with SAVE"2",8. 
That's the filename Program 1 will look for. , 

Run Program 1, press T or D (tape or disk), and wait pa- L^ 

tiently. You should be presented with a main menu. Press the 
fl function key. (Don't worry about loading a file right now.) . \ 

You'll then be asked to choose a sound between and 1250. O 

Enter a number and press RETURN. 

You will see a menu which allows you to set one of three , j 

voices, work on the filter settings, clear the sound, choose a Li 
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new sound, change joystick speed, or quit. If you don't clear 
the sound, the settings will be random and probably won't 
produce any sound at all. Use the keyboard to make your 
selection and plug a joystick into port 2. 



Set die Volume First 

Before you jump to the voice settings, make sure to go to the 
filter display and set the volume control, or you won't be able 
to hear anything. To change the various settings, you simply 
move the sprite arrow over the appropriate display and press 
the fire button. When a word or character is in reverse display, 
it means that the particular setting is on, or if the display is a 
scale (+ signs), it shows what value that setting contains. 
Select a waveform. There are four available: sawtooth, 
pulse, triangle, and noise. Although you can set more than 
one at a time, it's not recommended. (See "Programming 64 
Sound" for a good reason.) If you set the noise waveform 
while another is on, the voice must be cleared to produce any 
sound. Before you select the noise waveform, then, make sure 
all the others are turned off. 

If you choose a pulse waveform, you should also set the 
pulse width. This adjustment changes for every pixel the ar- 
row passes, not just the + symbols. If you've set the volume 
and the attack, decay, sustain, and release values already, you 
can hear a slight difference in the background sound if you 
turn your monitor's volume up to high. 

Set an ADSR (attack, decay, sustain, and release) en- 
velope by selecting values. If you want to hear the sound 
while you're experimenting, set the sustain to anything but the 
leftmost +, then hit the appropriate function key (see below 

r***> for triggering the voices). If you have the frequency and wave- 

form set, you should hear a steady tone. Change the note, oc- 
tave, or waveform and listen to the difference. 

f^ Choose the frequency by setting the octave and the note. 

' V Synchronization and ring modulation are rather complex, 

but they can create some interesting sounds. Experimenting 

j— i with them is probably the best way to hear how they affect 

'- • sounds. There are just a couple of things to keep in mind. 

First, the voice that's using synchronization or ring modulation 

j— I must be set to the triangle waveform. Second, make sure you 

'-. - set the frequency for the voice that's indicated in the bottom 
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box on the display. (If you're using voice 1, for instance, you 

need to set the frequency of voice 3.) — ' 



U 



Filters 

The filter display can be accessed from the main menu. (You 

can return from any display to the main menu just by pressing 

the space bar.) Once you see the filter setting screen, you can \ / 

choose which type of filter to set (high pass, band pass, or low '— -> 

pass), the voice to be filtered (E stands for external, used if 

you're routing sounds to an external speaker), and the cutoff 

frequency. As with the pulse width, the cutoff frequency 

changes at each pixel, not just each + symbol. 

Resonance will make the frequencies around the filter cut- 
off area louder. The very bottom box on the screen, Voice 3 
Output, will shut off voice 3 if it's set (shown by reverse 
video). If in normal text, voice 3 is not affected. It's a good 
idea to shut off voice 3 when using synchronization or ring 
modulation with voice 1, since it will cut down on any extra 
noise. 

Playing Sounds 

To trigger the voices, you must use the function keys (f 1 for 
voice one, f3 for voice two, f5 for voice three, and f 7 for all 
voices). If the voice is off, it should go through attack and 
decay, and then remain at the sustain level; when the key is 
pressed again, the sound should be released and fall to zero 
volume. When pressing the function keys or switching a set- 
ting, you must be careful. The program is very fast and the 
keys are very responsive; sometimes the voice or setting can 
be triggered twice, so hit the keys sharply. 

When you are finished experimenting with the various , , 

settings, press the space bar to return to the selection menu. LJ 

You can continue working on more sounds, or you can press 
f8 to quit. When you quit, you will get another menu with ,-■ , 

three options. ^J/ 

Saving Sounds 

The first option is to save a series of sounds on tape or disk as [} 
a file (depending on your earlier selection). You need to pro- 
vide the beginning and ending sounds (separating the num- t , 

bers with a comma) and then a filename. Make sure you have j j 

a disk in the drive or a tape in the Datassette. 
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r*) Later, you can load these sounds back into the computer 

- by pressing f3 at the beginning of the program instead of go- 

ing right to the design/review routine. This feature allows you 

r""^ to build a library of various sounds. 

1 Your second choice is to create DATA statements of your 

sound or sounds. After pressing the f3 key, you need to re- 
spond with the beginning and ending number(s) for the 
sound(s) you want to make DATA statements for. As soon as 
you press the RETURN key, the DATA statements appear. Hit 
RETURN several times (usually just once or twice more), and 
you'll see only the DATA statements on the screen. In fact, if 
you type LIST, the DATA statement lines will be the only 
ones in memory. If you want, you can save just the DATA 
statements as another program file, ready for appending to or 
merging with another program later. 

With the program below, you can use these DATA state- 
ments to incorporate complex and fast sound effects into your 
BASIC programs. 

1000 FORL=0 TO 42:READ DA:POKE828+L,DA:NEXTL 

1010 DATA 166,2,165,251,133,253,165,252,133,254,22 

4,0,240,16,169,25,24,101 
1020 DATA 253,133,253,169,0,101,254,133,254,202,20 

8,240,160,0,177,253 
1030 DATA 153,0,212,200,192,26,208,246,96 

This is a machine language routine that's POKEd into the cas- 
sette buffer (starting at location 828), but it's relocatable and 
can be put anywhere in free memory. To use it, you must 
POKE the values from the DATA statements created by Sound 
Sculptor into any free memory. For example, you could put 
one sound's data into the block of free memory beginning at 
r ^ ) 49152 with: 

i I 10 FORL=0 TO 24:READ SND:POKE 49152+L,SND:NEXTL 

If you have more sounds, POKE the DATA into memory im- 
,!""*) mediately following the first. Each sound created by the 

' W Sculptor includes 25 valid numbers (that's why the FOR- 

NEXT loop above reads FOR L=0 TO 24). The last DATA 
I— \ statement (no matter how many sounds you create DATA 

statements for) will have extra values. These will do no harm 
as long as you read only 25 values for each sound. 
i— 1 Next, POKE the starting address of the sounds into loca- 

tions 251 and 252. For the example above, this would be 
accomplished by: 

i 179 



4 Sound and Graphics 



20 POKE252, 49152/256 :POKE251 ,49152-256*PEEK( 252) 

Now you should have a short program which reads the values 
from the DATA statements and POKEs them into memory. 
Run it and the sound's values are stored. 



u 
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A Fast Sound Switch 

This has to be done only once. Whenever you wish to call 
upon a certain sound, just POKE the sound number into loca- 
tion 2. For example, POKE 2,0 selects the first sound in mem- 
ory. POKE 2,1 would call the second sound. Follow this with 
a SYS 828 (or to whatever memory location you have re- 
located the machine language routine), and you now have 
your sound in the SID chip. By doing this, you can switch 
various sounds in and out of the SID at lightning speed. 

You need to turn on the voice you're using, of course. 
You can do this with a line which includes: 

POKE 54272+4,PEEK(n)ORl 

where n is the first location of that sound. It would be 49152 
if that's where you earlier POKEd the sound's DATA values. 
Turning off the sound can be done by: 

POKE 54272+4,PEEK(n)AND254 

The same process applies to turning on voices 2 and 3, except 
you'd use 54283 and 54290 respectively instead of 54272. It's 
a good idea to turn off the voice, then turn it back on, be- 
tween calling different sounds. 

If you POKEd two sounds' values into memory, starting 
at location 49152, for example, the routine to call those sounds 
might look like this. 

10 POKE 2,0 

20 SYS 828 t i 

30 POKE 54272+4 ,PEEK( 49152+4 )0R 1 I — I 

40 FOR T=0TO 1000: NEXT 

50 POKE 54272+4, PEEK (491 52+4) AND 254 

60 POKE 2,1 I ' * 

70 SYS 828 V 

80 POKE 54272+4,PEEK(49177+4)OR 1 

90 FOR T=0TO1000:NEXT i 

100 POKE 54272+4, PEEK(49177+4)AND 254 l^J/ 

Create two sounds of your own with the Sculptor and form 

the DATA statements. POKE those into memory as described i i 

earlier, then type in and run the routine above. You should ' — ' 
hear your two sounds, one after the other. (Notice that the 
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second sound turns on voice 1 by PEEKing 49177+4. That's 
the location of the control register for the second sound. You 
get that location by adding 25 to the first address used to store 
sound data, in this case 49152. Each additional sound can turn 
the voice on and off by PEEKing the location 25 higher than 
the previous sound.) 
f~j Tape users: Program 1 automatically loads Program 2. It's recom- 

mended that you save both on the same tape, Program 2 last. 
Disk users: Save Program 2 as "2". Make sure both programs are 
on the same disk. 

Program 1. Sound Sculptor — ML Loader 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C, 
to enter the following two programs. 

50 POKE53281,11:POKE646,1:POKE53280,11 :rem 132 
80 PRINT"{CLR}":PRINT:PRINT"{6 SPACES } PLEASE WAIT 

{ SPACE} ONE MOMENT.. ." : rem 201 

200 REM ML PROGRAM POKER :rem 168 

210 FORL=49152TO50702 :rem 169 

220 READDA:POKEL,DA:NEXT :rem 20 
240 PRINT" {CLR} {13 RIGHT} {11 DOWN} {RVS}T{ OFF} APE 

R {RVS}D{OFF}lSK" :rem 108 

250 GETT$:IFT$=""THEN250 : rem 119 

255 IFT$<>"D"ANDT$<>"T"THEN250 :rem 200 

260 IFT$="D"THEN380 :rem 46 
300 POKE631 , 76 :POKE632 , 207 :P0KE633 , 13 :P0KE198, 3 

:rem 189 

350 FORT=1TO1000:NEXT:GOTO1000 : rem 82 

380 POKE50660,8:POKE50662,8 :rem 255 
400 P0KE631 , 76 :POKE632 , 207 : POKE633 , 34 :POKE634 , 50 : P 

OKE635,34:POKE636,44 :rem 36 

405 POKE637,56 :rem 255 

410 POKE638,58:POKE639,13:POKE198,9 :rem 9 

1000 REM ML DATA : rem 88 

49152 DATA 32, 140, 197, 160, 0, 177 :rem 252 

49158 DATA 78, 153, 0, 212, 200, 192 :rem 252 

49164 DATA 25, 208, 246, 32, 92, 194 :rem 9 

49170 DATA 165, 197, 201, 60, 240, 23 : rem 44 

49176 DATA 169, 16, 45, 0, 220, 208 :rem 207 

49182 DATA 225, 165, 2, 240, 6, 32 : rem 150 

49188 DATA 86, 192, 76, 0, 192, 32 :rem 172 

49194 DATA 48, 192, 76, 0, 192, 96 : rem 177 

49200 DATA 162, 21, 189, 24, 197, 202 :rem 46 

49206 DATA 205, 1, 208, 48, 8, 189 :rem 163 

49212 DATA 24, 197, 205, 1, 208, 48 :rem 205 

49218 DATA 4, 202, 16, 236, 96, 189 : rem 217 

49224 DATA 48, 197, 133, 75, 232, 189 :rem 68 
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49230 


DATA 


49236 


DATA 


49242 


DATA 


49248 


DATA 


49254 


DATA 


49260 


DATA 


49266 


DATA 


49272 


DATA 


49278 


DATA 


49284 


DATA 


49290 


DATA 


49296 


DATA 


49302 


DATA 


49308 


DATA 


49314 


DATA 


49320 


DATA 


49326 


DATA 


49332 


DATA 


49338 


DATA 


49344 


DATA 


49350 


DATA 


49356 


DATA 


49362 


DATA 


49368 


DATA 


49374 


DATA 


49380 


DATA 


49386 


DATA 


49392 


DATA 


49398 


DATA 


49404 


DATA 


49410 


DATA 


49416 


DATA 


49422 


DATA 


49428 


DATA 


49434 


DATA 


49440 


DATA 


49446 


DATA 


49452 


DATA 


49458 


DATA 


49464 


DATA 


49470 


DATA 


49476 


DATA 


49482 


DATA 


49488 


DATA 


49494 


DATA 


49500 


DATA 


49506 


DATA 


49512 


DATA 


49518 


DATA 


49524 


DATA 



48, 197, 133, 76, 108, 75 :rem 14 

0, 234, 162, 15, 189, 72 :rem 209 

197, 202, 205, 1, 208, 48 :rem 254 

8, 189, 72, 197, 205, 1 :rem 173 

208, 48, 4, 202, 16, 236 :rem 206 

96, 189, 88, 197, 133, 75 :rera 32 

232, 189, 88, 197, 133, 76 :rem 79 

108, 75, 0, 234, 96, 24 :rem 161 

173, 0, 208, 233, 142, 144 :rem 49 

247, 74, 74, 74, 74, 133 :rem 225 

77, 234, 32, 175, 192, 76 :rem 16 

96, 196, 96, 234, 234, 24 :rem 26 

173, 0, 208, 233, 74, 144 :rem 249 

245, 41, 240, 160, 3, 81 :rera 199 

253, 41, 240, 81, 253, 145 :rem 45 

253, 32, 175, 192, 76, 140 :rem 50 

196, 160, 3, 177, 253, 74 :rem 12 

74, 74, 74, 10, 170, 160 :rem 204 

0, 189, 0, 197, 145, 253 :rem 216 

232, 200, 189, 0, 197, 145 :rem 52 
253, 24, 169, 8, 229, 77 : rem 222 
234, 170, 240, 15, 177, 253 :rem 103 
74, 145, 253, 136, 177, 253 :rem 112 
106, 145, 253, 200, 202, 208 :rem 143 
241, 96, 24, 173, 0, 208 : rem 210 

233, 144, 144, 8, 169, 128 :rem 59 
32, 32, 193, 76, 198, 195 :rem 25 
169, 64, 32, 32, 193, 76 :rem 223 
181, 195, 24, 173, 0, 208 : rem 11 
233, 144, 176, 8, 169, 32 :rem 7 
32, 32, 193, 76, 215, 195 :rem 3 
169, 16, 32, 32, 193, 76 :rem 217 
232, 195, 169, 4, 32, 32 :rem 207 

193, 76, 249, 195, 169, 2 :rem 27 
32, 32, 193, 76, 10, 196 : rem 211 
160, 4, 81, 253, 145, 253 :rem 253 
96, 234, 234, 24, 173, : rem 211 
208, 233, 133, 144, 245, 170 :rem 147 
169, 0, 160, 2, 145, 253 : rem 209 
200, 177, 253, 41, 240, 72 :rem 48 
145, 253, 138, 162, 5, 136 :rem 54 
10, 145, 253, 200, 177, 253 :rem 100 
42, 145, 253, 136, 177, 253 :rem 110 
202, 208, 241, 200, 177, 253 :rem 151 
41, 15, 145, 253, 104, 24 : rem 254 
113, 253, 145, 253, 76, 193 :rem 101 

194, 96, 234, 160, 5, 32 :rem 213 
133, 193, 76, 208, 194, 160 :rem 107 
5, 32, 138, 193, 76, 228 :rem 221 
194, 160, 6, 32, 133, 193 :rem 2 
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49530 


DATA 


49536 


DATA 


49542 


DATA 


49548 


DATA 


49554 


DATA 


49560 


DATA 


49566 


DATA 


49572 


DATA 


49578 


DATA 


49584 


DATA 


49590 


DATA 


49596 


DATA 


49602 


DATA 


49608 


DATA 


49614 


DATA 


49620 


DATA 


49626 


DATA 


49632 


DATA 


49638 


DATA 


49644 


DATA 


49650 


DATA 


49656 


DATA 


49662 


DATA 


49668 


DATA 


49674 


DATA 


49680 


DATA 


49686 


DATA 


49692 


DATA 


49698 


DATA 


49704 


DATA 


49710 


DATA 


49716 


DATA 


49722 


DATA 


49728 


DATA 


49734 


DATA 


49740 


DATA 


49746 


DATA 


49752 


DATA 


49758 


DATA 


49764 


DATA 


49770 


DATA 


49776 


DATA 


49782 


DATA 


49788 


DATA 


49794 


DATA 


49800 


DATA 


49806 


DATA 


49812 


DATA 


49818 


DATA 


49824 


DATA 



76, 246, 194, 160, 6, 32 : rem 212 

138, 193, 76, 10, 195, 162 :rem 64 

240, 76, 140, 193, 162, 15 : rem 50 

134, 251, 24, 173, 0, 208 :rem 255 

233, 133, 144, 205, 74, 74 : rem 54 
74, 166, 251, 16, 4, 10 :rem 154 
10, 10, 10, 81, 253, 37 :rem 148 
251, 81, 253, 145, 253, 96 :rem 63 

234, 234, 234, 234, 96, 234 :rem 115 
234, 234, 234, 234, 160, 1 :rem 48 
24, 173, 0, 208, 233, 133 :rem 251 
48, 240, 10, 145, 253, 76 jrem 11 
28, 195, 234, 24, 173, : rem 206 
208, 233, 133, 144, 225, 74 :rem 103 
74, 74, 74, 74, 162, 1 :rem 116 
168, 240, 6, 138, 10, 136 :rem 253 
208, 252, 170, 138, 160, 2 :rem 49 
81, 253, 145, 253, 76, 86 :rem 16 

195, 234, 234, 234, 96, 173 : rem 120 
0, 208, 233, 133, 144, 248 :rem 49 
10, 160, 2, 81, 253, 41 :rem 144 
240, 81, 253, 145, 253, 76 :rem 62 
48, 195, 234, 234, 234, 234 : rem 112 
234, 81, 253, 41, 15, 81 :rem 215 
253, 145, 253, 96, 173, : rem 12 
208, 233, 133, 144, 248, 74 :rem 108 
74, 74, 160, 3, 234, 32 : rem 165 
5, 194, 76, 68, 195, 169 :rem 241 

64, 32, 65, 194, 76, 44 :rem 183 

196, 169, 32, 32, 65, 194 :rem 17 
76. 61, 196, 169, 16, 32 : rem 219 

65, 194, 76, 78, 196, 169 :rem 38 
128, 32, 65, 194, 76, 27 :rem 221 
196, 160, 3, 81, 253, 145 :rem 11 
253, 96, 24, 169, 128, 113 :rem 64 
251, 145, 251, 136, 208, 246 :rem 152 
173, 0, 220, 41, 16, 240 :rem 197 
249, 96, 96, 234, 32, 228 :rem 24 
255, 201, 133, 48, 247, 201 :rem 105 
137, 16, 243, 201, 133, 208 :rem 99 
4, 32, 137, 194, 96, 201 :rem 213 
134, 208, 4. 32, 149, 194 :rem 14 
96, 201, 135, 208, 4, 32 : rem 210 
161, 194, 96, 32, 137, 194 :rem 77 
32, 149, 194, 32, 161, 194 : rem 67 
96, 169, 1, 160, 4, 81 :rem 111 
78, 145, 78, 141, 4, 212 :rem 216 
96, 169, 1, 160, 11, 81 :rem 160 
78, 145, 78, 141, 11, 212 :rem 9 
96, 169, 1, 160, 18, 81 :rem 170 
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49830 DATA 78, 145, 78, 141, 18, 212 :rem 10 

49836 DATA 96, 41, 15, 170, 160, 16 :rem 212 

49842 DATA 169, 43, 145, 251, 136, 208 :rem 110 

49848 DATA 251, 232, 138, 168, 169, 171 :rem 170 

49854 DATA 145, 251, 96, 169, 5, 133 : rem 17 

49860 DATA 251, 169, 7, 133, 252, 160 :rem 55 

49866 DATA 3, 177, 253, 76, 173, 194 :rem 25 

49872 DATA 169, 117, 133, 251, 169, 5 :rem 65 

49878 DATA 133, 252, 160, 5, 177, 253 :rem 63 

49884 DATA 74, 74, 74, 74, 170, 76 :rem 184 

49890 DATA 176, 194, 169, 157, 133, 251 :rem 172 

49896 DATA 169, 5, 133, 252, 160, 5 :rem 219 

49902 DATA 177, 253, 41, 15, 170, 76 :rem 7 

49908 DATA 176, 194, 169, 197, 133, 251 :rem 176 

49914 DATA 169, 5, 133, 252, 160, 6 : rem 211 

49920 DATA 177, 253, 74, 74, 74, 74 :rem 227 

49926 DATA 170, 76, 176, 194, 169, 237 :rem 129 

49932 DATA 133, 251, 169, 5, 133, 252 :rem 53 

49938 DATA 160, 6, 177, 253, 41, 15 :rem 216 

49944 DATA 170, 76, 176, 194, 169, 173 :rem 128 

49950 DATA 133, 251, 169, 4, 133, 252 : rem 52 

49956 DATA 160, 1, 177, 253, 74, 74 :rem 222 

49962 DATA 74, 74, 170, 76, 176, 194 :rem 27 

49968 DATA 169, 237, 133, 251, 169, 5 :rem 74 

49974 DATA 133, 252, 160, 2, 177, 253 : rem 57 

49980 DATA 74, 74, 74, 74, 170, 76 :rem 181 

49986 DATA 176, 194, 169, 181, 133, 251 :rem 175 

49992 DATA 169, 6, 133, 252, 160, 3 :rem 215 

49998 DATA 177, 253, 41, 15, 170, 76 :rem 22 

50004 DATA 176, 194, 169, 78, 133, 251 :rem 105 

50010 DATA 169, 5, 133, 252, 169, 1 : rem 194 

50016 DATA 162, 1, 160, 2, 72, 49 :rem 91 

50022 DATA 253, 240, 31, 138, 168, 177 : rem 93 

50028 DATA 251, 201, 127, 16, 7, 169 :rem 248 

50034 DATA 128, 24, 113, 251, 145, 251 :rem 82 

50040 DATA 232, 232, 232, 232, 104, 10 :rem 65 

50046 DATA 224, 17, 240, 3, 76, 98 : rem 156 

50052 DATA 195, 76, 82, 194, 138, 168 :rem 65 

50058 DATA 177, 251, 201, 127, 48, 232 :rem 95 

50064 DATA 169, 128, 24, 113, 251, 145 :rem 93 

50070 DATA 251, 76, 120, 195, 49, 253 :rem 48 

50076 DATA 240, 11, 138, 168, 177, 251 :rem 98 

50082 DATA 201, 127, 16, 14, 76, 80 :rem 195 

50088 DATA 194, 138, 168, 177, 251, 201 :rem 158 

50094 DATA 127, 48, 3, 76, 72, 194 : rem 165 

50100 DATA 96, 169, 170, 133, 251, 169 :rem 98 

50106 DATA 6, 133, 252, 162, 6, 169 :rem 199 

50112 DATA 64, 160, 4, 76, 154, 195 :rem 202 

50118 DATA 169, 189, 133, 251, 169, 6 jrem 60 

50124 DATA 133, 252, 162, 5, 169, 128 :rem 43 
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50130 


DATA 


50136 


DATA 


50142 


DATA 


50148 


DATA 


50154 


DATA 


50160 


DATA 


50166 


DATA 


50172 


DATA 


50178 


DATA 


50184 


DATA 


50190 


DATA 


50196 


DATA 


50202 


DATA 


50208 


DATA 


50214 


DATA 


50220 


DATA 


50226 


DATA 


50232 


DATA 


50238 


DATA 


50244 


DATA 


50250 


DATA 


50256 


DATA 


50262 


DATA 


50268 


DATA 


50274 


DATA 


50280 


DATA 


50286 


DATA 


50292 


DATA 


50298 


DATA 


50304 


DATA 


50310 


DATA 


50316 


DATA 


50322 


DATA 


50328 


DATA 


50334 


DATA 


50340 


DATA 


50346 


DATA 


50352 


DATA 


50358 


DATA 


50364 


DATA 


50370 


DATA 


50376 


DATA 


50382 


DATA 


50388 


DATA 


50394 


DATA 


50400 


DATA 


50406 


DATA 


50412 


DATA 


50418 


DATA 


50424 


DATA 



160, 4, 76, 154, 195, 169 :rem 

90, 133, 251, 169, 6, 133 :rem 250 

252, 162, 6, 169, 32, 160 : rem 246 

4, 76, 154, 195, 169, 109 :rem 12 

133, 251, 169, 6, 133, 252 : rem 42 

162, 6, 169, 16, 160, 4 :rem 147 

76, 154, 195, 169, 153, 133 :rem 110 

251, 169, 7, 133, 252, 162 :rem 45 
15, 169, 4, 160, 4, 76 :rem 109 
154, 195, 169, 113, 133, 251 :rem 149 
169, 7, 133, 252, 162, 15 :rem 251 
169, 2, 160, 4, 76, 154 :rem 159 
195, 169, 45, 133, 251, 169 : rem 102 
7, 133, 252, 162, 15, 169 :rem 251 
128, 160, 3, 76, 154, 195 : rem 253 
169, 201, 133, 251, 169, 4 : rem 37 
133, 252, 162, 9, 169, 64 :rem 1 
160, 3, 76, 154, 195, 169 :rem 2 
25, 133, 251, 169, 5, 133 : rem 250 

252, 162, 9, 169, 32, 160 :rem 252 
3, 76, 154, 195, 169, 105 : rem 1 
133, 251, 169, 5, 133, 252 :rem 44 
162, 9, 169, 16, 160, 3 s rem 152 
76, 154, 195, 234, 162, 49 :rem 64 
160, 0, 169, 95, 133, 251 : rem 252 
169, 4, 133, 252, 138, 145 :rem 47 
251, 200, 200, 232, 192, 16 : rem 81 
208, 246, 160, 1, 177, 253 :rem 47 
162, 255, 232, 74, 208, 252 : rem 104 
138, 133, 77, 10, 168, 169 :rem 51 
128, 113, 251, 145, 251, 96 :rem 88 
162, 0, 160, 0, 169, 167 srem 195 
133, 251, 169, 4, 133, 252 :rem 37 
189, 112, 197, 145, 251, 200 :rem 147 
200, 232, 192, 24, 208, 244 : rem 84 
160, 3, 177, 253, 74, 74 :rem 203 
74, 74, 10, 168, 24, 169 : rem 212 
128, 113, 251, 145, 251, 96 :rem 94 
234, 234, 32, 96, 196, 32 :rem 6 
140, 196, 32, 193, 194, 32 :rem 50 
198, 195, 32, 181, 195, 32 : rem 57 
215, 195, 32, 232, 195, 32 :rem 50 
249, 195, 32, 10, 196, 32 : rem 1 
208, 194, 32, 228, 194, 32 :rem 58 
246, 194, 32, 10, 195, 76 :rem 7 
0, 192, 234, 234, 234, 32 trem 235 
28, 195, 32, 48, 195, 32 :rem 211 
86, 195, 32, 27, 196, 32 :rem 210 
44, 196, 32, 61, 196, 32 :rem 209 
78, 196, 32, 68, 195, 76 :rem 227 
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300 PRINT" B{8 SPACES }BWAVEFORMB{ 10 SPACES }B 

:rem 177 
310 PRINT" B OLOLOL JCCCCCCCCK { 2 SPACES }": s rem 224 
315 PRINT"NOISE{3 SPACES}B[10 SPACES}B{28 SPACESjB 

:rem 46 
320 PRINT" BPULSE WIDTH ++++++++++++++++B :rem 129 
330 PRINT" JCCCCCCCCCCCCCCCCCCCCCCCCCCCCK :rem 46 
340 PRINT" UCCCCCCCCCCCCCCCCCCCCCCCCCCCCI :rem 56 
350 PRINT" BSYNCHRONIZATION13 SPACES} USE VOICE B 

:rem 192 
360 PRINT" BRING MODULATION{6 SPACES}#"SR" . 

{2 SPACESjB srem 50 

370 PRINT" JCCCCCCCCCCCCCCCCCCCCCCCCCCCCK "; 

:rem 143 
380 PRINT" {HOME}" :rem 127 

390 A=(V-l)*7sS=S+AsPOKE254,S/256sPOKE253,S-256*PE 

EK(254) :rem 223 

400 SYSVCH srem 116 

410 GOTO910 :rem 104 

420 PRINT" {CLR} "; :POKE2, 255 :rem 152 

430 REM FILTER DISPLAY :rem 87 

440 PRINT" {RVSjCCCCCCCCCCCCFILTER SETTINGS CCCCCCCC 

CCCCC{OFF}" :rem 79 

450 PRINT" UCCCCCCCCCCCIUCCCCCCCCCCCCCCCCI :rem 21 
460 PRINT"BFILTER TYPEBBCUTOFF FREQUENCYB : rem 210 
470 PRINT"B{11 SPACES }BB++++++++++++++++B : rem 2 
480 PRINT"B HIGH PASS BJCCCCCCCCCCCCCCCCK : rem 235 
490 PRINT "B{ 11 SPACES } BUCCCCCCCCCCCCCCCCI :rem 158 
500 PRINT "B BAND PASS BBVOICES12 SPACES J FILTEREDB 

:rem 176 
510 PRINT"B{11 SPACES }BB l{3 SPACES}2{3 SPACES} 3 

{3 SPACES }E{ 2 SPACESjB :rem 40 

520 PRINT"B LOW{2 SPACES J PASS BJCCCCCCCCCCCCCCCCK 

:rem 184 
530 PRINT" JCCCCCCCCCCCKUCCCCCCCCCCCCCCCCI :rem 11 
540 PRINT" 113 SPACES JBl 3 SPACES J RESONANCE 

{4 SPACES J B :rem 106 

550 PRINT" {13 SPACES JB++++++++++++++++B :rem 125 
560 PRINT" {13 SPACES J JCCCCCCCCCCCCCCCCK :rem 15 
570 PRINT " { RVS } CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCC {OFFj"; :rem 196 

580 PRINT" {13 SPACES } UCCCCCCCCCCCCCCCC I srem 26 
590 PRINT" {13 SPACES }Bl 3 SHIFT-SPACE j 

{SHIFT-SPACE} VOLUME {5 SHIFT-SPACE }B :rem 73 
600 PRINT" {13 SPACES }B++++++++++++++++B :rem 121 
610 PRINT" {13 SPACES } JCCCCCCCCCCCCCCCCK srem 11 
620 PRINT" {13 SPACES } UCCCCCCCCCCCCCCCCI srem 21 
630 PRINT" {13 SPACES }Bl RVS J VOICE #3 OUTPUT{OFF} B 

srem 45 
640 PRINT" {13 SPACES } JCCCCCCCCCCCCCCCCK srem 14 
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650 S=S+21:POKE254,S/256:POKE253,S-256*PEEK(254):S 

YSFCH:GOTO910 :rem 249 

660 REM INITIALIZATION :rem 168 

670 SS=9758 : POKE78 , 30 :POKE79 , 38 :SN=0 : VCH=50360 :FCH 

=50405 :POKE53236, 10 :rem 17 

680 POKE53248 , 24 :POKE53249 , 50 : P0KE51 , 29 : POKE52 , 38 : 

POKE55,29:POKE56,38 :rem 8 

690 PRINT" {CLR}" :rem 3 

700 PRINT" {11 DOWN} "TAB( 7) "WELCOME TO SOUND SCULPT 

OR" :rem 122 

710 FORL=1TO2000:NEXT : rem 23 

720 PRINT" {CLR}" :rem 253 

730 PRINT"{3 DOWN}"TAB(15)"{RVS}MAIN MENU{OFF}" 

:rem 110 
740 PRINT"{2 DOWN} "TAB( 14) "CHOOSE ONE:" : rem 60 
750 PRINT"{2 DOWN}"TAB(7)"{RVS}Fl{OFF} DESIGN/REVI 

EW SOUNDS" :rem 228 

760 PRINT:PRINTTAB(7)"{RVS}F3{OFF} LOAD SOUND FILE 

:rem 122 
770 GETA$:IFA$<"{F1}"ORA$>"{F3}"THEN770 : rem 241 
780 ONASC(A$)-132GOTO860, 1340 :rem 87 

790 REM JOYSTICK SPEED :rem 101 

800 PRINT" {CLR} {12 DOWN} {3 SPACES } SELECT A SPEED B 

ETWEEN AND 15." :rem 219 

810 PRINT" {4 SPACES}0 - SLOWEST{6 SPACES}15 - FAST 

EST" :rem 165 

820 INPUTPS :rem 205 

830 IFPS<0ORPS>15THENPRINT"NUMBER NOT ACCEPTABLE": 

GOTO830 :rem 173 

840 POKE53236,16-PS:GOTO910 :rem 62 

850 REM SOUND DESIGN/REVIEW : rem 197 

860 PRINT" {CLR}" :rem 2 

870 PRINT" {11 DOWN} WHICH SOUND DO YOU WISH TO WOR 

K ON?" :rem 180 

880 PRINT" {2 SPACES} (NUMBER BETWEEN & 1250 PLEAS 

E) :rem 75 

890 INPUTSN :rem 210 

900 IFSN<0ORSN>1250THENPRINT"NUMBER NOT ACCEPTABLE 

":GOTO890 :rem 15 

910 POKE53269,0:PRINT"{CLR}{RVS}SOUND #";SN"{OFF} 

{HOME}{3 DOWN} "TAB( 15) "CHOOSE ONE:" : rem 49 
920 S=SS+SN*25 :rem 46 

930 POKE79,S/256:POKE78,S-256*PEEK(79) :rem 183 
940 PRINT:PRINTTAB(8)"{RVS}l{OFF} - DISPLAY VOICE 

{SPACE}#1" :rem 119 

950 PRINT:PRINTTAB(8)"{RVS}2{OFF} - DISPLAY VOICE 

{SPACE} #2" :rem 122 

960 PRINT:PRINTTAB(8)"{RVS}3{OFF} - DISPLAY VOICE 

{SPACE} #3" :rem 125 
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970 PRINT:PRINTTAB(8)"{RVS}4{0FF} - DISPLAY FILTER 
SETTINGS" :rem 234 

980 PRINT: PRINTTAB(8)"{RVS}5 {OFF} - CLEAR SOUND" 

:rem 143 
990 PRINT:PRINTTAB(8)"{RVS}6{OFF} - NEW SOUND NUMB 
ER" :rem 221 

1000 PRINT:PRINTTAB(8)"{RVS}7{OFF} - CHANGE JOYSTI 
CK SPEED" :rem 72 

1010 PRINT:PRINTTAB(8)"{RVS}8{OFF} - QUIT" : rem 6 
1020 GETC$:IFC$<"1"ORC$>"8"THEN1020 :rem 159 
1030 ONVAL(C$)GOTO1040, 1050, 1060, 1070, 1080, 860 ,80 



: rem 68 
:rem 175 
:rem 175 
:rem 178 
:rem 102 
:rem 135 
:rem 241 
:rem 157 
:rem 254 

SAVE SOUND F 
:rem 218 

CONVERT TO D 
:rem 235 

END": rem 223 



0,1100 
1040 V=1:SR=3:POKE53269,1:GOTO140 
1050 V=2:SR=1:POKE53269,1:GOTO140 
1060 V=3:SR=2:POKE53269,1:GOTO140 
1070 POKE53269,1:GOTO420 
1 080 FORL=0TO24 : POKES+L , : NEXT : GOT09 10 
1090 REM QUIT 
1100 PRINT"{CLR}{7 DOWN}" 
1110 PRINT TAB (14) "CHOOSE ONE:" 
1120 PRINT:PRINTTAB(6)"{RVS}Fl{OFF} 

ILE " 
1130 PRINT:PRINTTAB(6)"{RVS}F3{OFF} 

ATA STATEMENTS" 
1140 PRINT:PRINTTAB(6)"{RVS}F5{OFF} 

1150 GETA$:IFA$<"{F1}"ORA$>"{F5}"THEN1150 :rem 68 
1160 ONASC{A$)-132GOTO1220 ,1170,1420 :reml55 
1170 PRINT"{CLR}{8 DOWN}" : rem 181 

1180 PRINT" {2 SPACES} ENTER SOUNDS YOU WANT TO CONV 

ERT" :rem 240 

1190 PRINT"{6 SPACES} (START, END)"; : rem 185 
1200 ER=1:GOTO110 :rem 205 

1210 REM SAVE SOUNDS ROUTINE : rem 217 

1220 PRINT"{CLR}{8 DOWN}" :rem 177 

1230 PRINT" {2 SPACESjENTER SOUNDS YOU WISH TO SAVE 

" :rem 251 

1240 PRINT" {6 SPACES} (START, END)"; :rem 181 
1250 INPUTB,E:IFB<0ORE>1250ORB>ETHENPRINT"BAD INPU 

T":GOTO1250 :rem 102 

1260 S=B*25+9758:F=9758+E*25+25 :rem 97 

1270 POKE79,S/256:POKE78,S-256*PEEK(79):POKE254,F/ 

256:POKE253,F-256*PEEK(254) : rem 161 

1280 INPUT" {3 SPACES} WHAT DO YOU WISH TO NAME THE 

{ SPACE } FILE ";NM$:IFNM$=""THEN1 280 :rem 96 
1290 T=LEN(NM$)sPOKE2,T srem 103 

1300 FORJ=1TOT:POKE50944-J+T,ASC(RIGHT$(NM$,J) ) :NE 

XTJ :rem 254 

1310 SYS50659:SYS50692 :rem 12 
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1320 PRINT :PRINTNM$" FILE HAS BEEN SAVED" : PRINT "TH 

ANKYOU":END :rem 53 

1330 REM LOAD ROUTINE : rem 241 

1340 IFPEEK( 50660 )=1THENPRINT " {CLR} " : POKE2 , :SYS50 

659:SYS50682:GOTO860 :rem 87 

1360 INPUT " { 8 SPACES } FILENAME " ; NM$ :T=LEN ( NM$ ) : POKE 

2,T:IFT=0THEN1360 :rem 49 

1370 FORJ=1TOT:POKE50944-J+T,ASC(RIGHT$(NM$,J)):NE 

XTJ :rem 5 

1380 PRINT" {CLR} ":SYS50659:SYS50682 :rem 176 
1390 IFST=66THENPRINT"{7 RIGHT }FILE NOT FOUND" :GOT 

01350 :rem 64 

1400 GOTO860 :rera 156 

1410 REM END : rem 129 

1420 PRINT" {CLR}THANKYOU":END :rem 175 

1430 POKE2040,11 :FORL=0TO24:READSP:POKE704+L,SP:NE 

XTL:POKE53287,7 :rem 11 

1440 FORL=25TO63:POKE704+L,0:NEXTL:GOTO670 :rem 88 
1450 DATA48, 0,0, 56, 0,0, 60, 0,0, 62, 0,0, 45 ,0,0, 36,0,0 

,4,0,0,2,0,0,2 :rem 19 
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64 Hi-Res u 

Graphics Editor u 

Gregg Peele j I 

Just as a word processor allows you to expand 
your writing skills by giving you power to manipu- 
late text freely, "Hi-Res Graphics Editor" allows 
you to easily draw, erase, and edit images on the 
64's hi-res screen. Once you have finished your 
drawing, you can even send the results to your 
1525 printer. Joystick needed. 



Creating, changing, even saving intricate drawings on your 
Commodore 64's hi-res screen is simple with the Editor. Using 
a joystick and sprites, parts of pictures can be imprinted onto a 
sprite and planted on another area of the screen. You can even 
enlarge the sprite to full-screen size to edit it more precisely. 

Type It In with MLX 

"Hi-Res Graphics Editor" is in two parts. (Three, if you use 

the optional automatic load routine. See the next section, 

"Autoload," for details.) First you must type in Program 1, 

"Machine Language for Hi-Res Graphics Editor," using the 

MLX program found in Appendix D. MLX makes it simple to 

enter machine language programs, and almost guarantees that , , 

you'll have a working copy of the Editor the first time you | 1 

type it in. Once you've typed in, saved, and then loaded MLX, 

it will ask you for two numbers, or addresses. You should re- . . 

spond with: I i 

Starting address: 49152 
Ending address: 51557 

You don't have to type in Program 1 all in one sitting. Read 
Appendix D for details on how to save and later return to a 
partially completed machine language program. j \ 

Save Program 1 to tape or disk. Turn your computer off, — ' 

then on again, to reset it. 
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["~| Now type in Program 2, the BASIC part of Hi-Res Graph- 

ics Editor. You'll find "The Automatic Proofreader," Appendix 
C, a great aid in entering any BASIC program, including this 

j"""j one. Make sure you've got a copy of the Proofreader on tape 

or disk, then type in Program 2. Save it to disk or tape. If 
you're using a Datassette, it's important that Program 2 is 

r~] saved on the same tape as Program 1; it should immediately 

follow the machine language portion. If you have a disk drive, 
just make sure both programs are on the same disk. 

To run the Editor, first load Program 1 with this format: 

LO AD" 'filename", 8,1 (for disk) 

LOAD" filename", 1,1 (for tape) 

Now enter this line and press RETURN: 

POKE 642,128: POKE 44,128: POKE 32768,0: NEW 

This moves BASIC to a safe place in memory — leaving plenty 
of room for hi-res screens. You must type this line each time 
before you load Program 2. 

Next, load the BASIC program — Program 2. Type RUN, 
press RETURN, and you are in the Editor. 

Autoload 

If you want to eliminate some of the steps in loading and run- 
ning the Editor, you can use this short program to automati- 
cally load the two parts of the Editor. 

10 IP FL=0 THEN FL=l:LOAD "HIRES/ML", 8,1 

20 PRINT"{CLR}{2 DOWN } POKE642 , 128: P0KE44, 128: POKE3 

2768,0:NEW" 
30 PRINT"{3 DOWN}LOAD"CHR$(34)"HIRES/BAS"CHR$(34)" 

,8" 
40 PRINT" {HOME}"; 

50 POKE 198, 6: POKE 631, 13: POKE 632, 13: POKE 633,13 
60 POKE 634,82:P0KE 635,213:POKE 636,13 

The program assumes you have used the filenames 
HIRES/ML for the machine language portion and HIRES/BAS 
for the BASIC part. Change these names in lines 10 and 30 
above to match the names you used. To use the program with 
tape, change the 8 to a 1 in lines 10 and 30. 

All you have to do is load and run this short routine, and 

nthe rest is done for you. If you are using tape, save this rou- 
tine before you save Programs 1 and 2. 
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Set die Joystick Speed j { 

The first prompt in Hi-Res Graphics Editor is for joystick ' — ' 

speed. Enter a number from 1 to 10 (10 is fastest). The lower 

the number, the more control you have over drawing. You can j i 

experiment with these numbers to find the best speed for your ' — ' 

purposes. 

Next, the screen clears and a rectangle appears in the cen- j | 

ter. This is the sprite cursor. Press the letter D and the box will ' — ' 

change into an arrow. You are now in Draw Mode. With a 
joystick in port 2, you can move this arrow around the screen. 
(A trackball will also work with the Editor. In fact, it seems to 
give you even finer drawing and movement control.) 

Pressing the fire button draws on the screen. If what you 
have drawn is invisible, press B to change the background 
color and F to change the foreground color. Keep pressing 
these keys to step through the sequence of all possible colors. 

Erasing with the Arrow 

If you wish to erase what you've drawn, engage the SHIFT 
LOCK key on the keyboard. Then hold down the fire button 
and use the joystick to point the arrow at any pixel you want 
to erase. To start over with a clean slate, just press the fl key. 
This clears the screen. 

Sprite Mode can be accessed by pressing the A (Add), S 
(Stamp), C (Copy), or E (Erase) key. Let's explore the most in- 
teresting of these, hitting the letter C. 

Using the joystick, move the rectangle around the screen 
until it's superimposed on part of your original drawing. (If 
you've cleared the screen, you can return to Draw Mode by 
pressing D). Press the fire button, and the contents of the 
screen under the sprite will be copied onto the sprite. 

You can enter Add Mode at any time by pressing A. (In 
fact, you're automatically in Add Mode as soon as you copy 
onto a sprite.) In this mode, you can move your sprite around . . 

the screen and plant the image anywhere you like. (You add I — i 

the image of the sprite to the images already on the screen.) If 
you hold the button down while you have the sprite, the , ■ 

sprite's image becomes a wide brush, which you can use for I i 

calligraphy and to create other interesting effects. 

A Graphic Stamp I I 

Stamp Mode replaces the contents of the screen with the con- 
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|~~j tents of the sprite. If you put the rectangle over a filled-in 

area, for example, and your sprite is mostly empty, it will 

erase much of what's beneath the sprite. 
j— "I If you make a mistake in your drawing, use E, Erase 

Mode. This mode transforms the sprite cursor into a giant 

eraser which clears any pixels it passes over. 

' l A Sprite Editor 

You can create your own sprites by enlarging the sprite to full- 
screen proportions. Hold down the i7 key briefly. The screen 
will clear and an enlarged image of the sprite will appear in 
the upper left corner of the screen. To edit this sprite, press 
the fire button of the joystick as you move the cursor in this 
area. Erasing is simple. Just engage the SHIFT/LOCK key, and 
instead of drawing to the image, you will erase parts of the 
sprite. The fl key clears the sprite, just as it cleared the screen 
in hi-res mode. 

If you want to save or load a hi-res screen, you must do it 
from this sprite definition mode. (It doesn't save the sprite 
shape, only the hi-res screen you've created.) Hold the CTRL 
key while you press L for LOAD, and a series of prompts will 
then appear for loading from disk or tape. Likewise, holding 
CTRL and S allows you to save to disk or tape. 

Anytime you wish to return to hi-res mode, simply hold 
17 down for a moment. You can then use the sprite definition 
you have just created to produce intricate pictures on the hi- 
res screen. 

Two Graphics Screens 

The Editor contains a feature which allows you to have two 
I— I full screens of graphics in memory at one time. Press T to tog- 

I I gle between them. When you first try this function, the screen 

will fill with garbage if nothing has been created on the alter- 
nate screen. (There is undefined data in this area.) 

Clear the screen (using the f 1 key) to start with a new 
palette. Draw a new design on this screen, and press T to re- 
turn to the old screen. Pressing T again takes you back to your 
second creation, and so on. 

Printing Your Creation 

Since an image created on a computer screen will last only as 
long as the power is on, a hi-res screen dump is included. Just 
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press the letter P, and your 1525 printer (or 1525-compatible 
printer) will print the contents (minus the sprite cursors) of the 
screen. Unfortunately, the new Commodore 1526 printer does 
not have the dot-addressable feature of the 1525 printer, so 
you won't be able to use this screen dump option if you have 
the 1526. 

Here's a summary of the commands in the Hi-Res Graph- 
ics Editor: 

Key Feature 

D Draw Mode 

SHIFT/ 

LOCK on Erase draw (in sprite definition mode, erase parts of 

sprite) 
A Add Mode; overlay sprite with screen 

C Copy screen to sprite 

S Stamp Mode; replace what is onscreen with sprite 

image 
E Erase under sprite 

F Sequence through foreground colors 

B Sequence through background colors 

T Toggle between screens 

fl Clear screen (hi-res and sprite definition modes) 

f 7 Changes from hi-res to sprite definition and vice versa 

CTRL-L Load screen from disk or tape; available only from 

sprite definition mode 
CTRL-S Save screen from disk or tape, available only from 

sprite definition mode 
P Produce printout on Commodore 1525 printer 

Program 1. Machine Language for Hi-Res Graphics 
Editor 

For easy entry of this machine language program, be sure to use "The Machine language 
Editor: MIX," Appendix D. 

49152 :032, 107, 198, 169, 015, 141, 150 

49158 : 226, 206, 032, 013, 198, 169, 082 

49164 : 128, 133, 044, 141, 130, 002, 078 

49170 j 169, 000, 141, 000, 128, 169, 113 

49176 : 200, 141, 000, 208, 141, 254, 200 

49182 : 206, 169, 003, 141, 021, 208, 010 

49188 :169, 033, 141, 212, 205, 169, 197 

49194 :000, 141, 016, 208, 141, 255, 035 

49200 : 206 , 169 , 100 , 141 ,001 , 208 , 105 

49206 : 141, 003, 208, 173, 024, 208, 043 

49212 :041, 240, 009, 008, 141, 024, 011 

49218 : 208, 173,017,208,009,032,201 
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49224 
49230 
49236 
49242 
49248 
49254 
49260 
49266 
49272 
49278 
49284 
49290 
49296 
49302 
49308 
49314 
49320 
49326 
49332 
49338 
49344 
49350 
49356 
49362 
49368 
49374 
49380 
49386 
49392 
49398 
49404 
49410 
49416 
49422 
49428 
49434 
49440 
49446 
49452 
49458 
49464 
49470 
49476 
49482 
49488 
49494 
49500 
49506 
49512 
49518 



141,017,208,169,000,141,236 
238,002,032,182,200,032,252 
107,192,032,004,194,032,133 
186,197,032,239,197,032,205 
186,199,032,008,201,173,127 
238 , 002 , 240 , 230 , 096 , 169 , 053 
032 , 141 , 248 , 007 , 169 , 001 , 194 
141 ,039 , 208 , 238 , 040 , 208 , 220 
173,227,205,201,003,208,113 

018 . 169 . 076 . 141 . 198 . 205 . 165 
169 , 248 , 141 , 197 , 205 , 169 , 237 
014 , 141 , 241 , 002 , 076 , 160 , 004 
192,169,063,141,198,205,088 
169 , 228, 141 , 197 , 205 , 169 , 235 
025,141,241,002,173,212,182 
205,141,249,007,173,000,169 
220,041,015,141,253,206,020 
056,169,015,237,253,206,086 
141,252,206,160,000,200,115 
204 , 252 , 206, 208 , 250 , 152 , 178 
010,168,185,204,192,072,255 
185 , 203 , 192 , 072 , 096 , 002 , 180 
194,214,193,218,193,002,194 
194,226,193,230,193,237,203 
193,002,194,222,193,251,247 
193,244,193,002,194,169,193 
050,205,001,208,176,012,112 

173 . 001 . 208 . 056 . 173 . 001 .078 
208,233,001,141,001,208,008 
096 , 173 , 197 , 205 , 205 , 001 , 099 
208,144,012,173,001,208,230 
024 , 173 , 001 , 208 , 105 , 001 , 002 
141,001,208,096,056,173,171 
254 , 206 , 237 , 198 , 205 , 141 , 231 
253,206,173,255,206,233,066 
001 , 013 , 253 , 206 , 144 , 014 , 145 
173,198,205,141,254,206,185 
169 , 001 , 141 , 255 , 206 , 076 , 118 
063,193,024,173,254,206,189 
105 , 001 , 141 , 254 , 206 , 173 , 162 
255,206,105,000,141,255,250 

206 . 056 . 173 . 254 . 206 . 233 . 166 
000,141,253,206,173,255,072 
206,233,001,013,253,206,218 
144,015,173,016,208,009,133 
001 , 141 , 016 , 208 , 173 , 254 , 111 
206 , 141 , 000 , 208 , 096 ,173, 148 
016,208,041,254,141,016,006 
208,173,254,206,141,000,062 

208 . 096 . 056 . 173 . 254 . 206 . 079 
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49524 : 237 , 241 , 002 , 141 , 253 , 206 , 172 

49530 : 173 , 255 , 206 , 233 , 000 ,013 ,234 

49536 :253, 206, 176, 017, 056, 173, 241 

49542 : 241, 002, 233, 001, 141, 254, 238 

49548 :206 , 169 , 000 , 141 , 255 , 206 , 093 

49554 : 076, 166,193,056,173,254,040 

49560 : 206, 233, 001, 141, 254, 206, 169 

49566 : 173, 255, 206, 233, 000, 141, 142 , 

49572 :255, 206, 056, 173, 254, 206, 034 J [ 

49578 : 233, 000, 141, 253, 206, 173, 152 

49584 : 255, 206, 233, 001, 013, 253, 113 

49590 : 206, 144, 015, 173, 016, 208, 176 

49596 :009 ,001 , 141 , 016 , 208 , 173 , 224 

49602 : 254, 206, 141, 000, 208, 096, 075 

49608 :173, 016, 208, 041, 254, 141, 009 

49614 :016, 208, 173, 254, 206, 141, 180 

49620 :000, 208, 096, 032, 227, 192, 199 

49626 :096, 032, 247, 192, 096, 032, 145 

49632 :012, 193, 096, 032, 112, 193, 094 

49638 : 096, 032, 227, 192, 032, 112, 153 

49644 : 193, 096, 032, 247, 192, 032, 004 

49650 : 112 , 193 , 096 ,032 , 247 , 192 , 090 

49656 :032, 012, 193, 096, 032, 227, 072 

49662 : 192, 032, 012, 193, 096, 096, 107 

49668 :173, 001, 208, 141, 003, 208, 226 

49674 : 173 , 000, 208 , 141 , 002 , 208 , 230 

49680 : 173 ,016 ,208,041 ,001 ,240,183 

49686 : 011 , 169 , 002 ,013 , 016 , 208 , 185 

49692 :141, 016, 208, 076, 042, 194, 193 

49698 : 169 , 253 , 045 , 016 , 208 , 141 , 098 

49704 :016, 208, 056, 173, 254, 206, 185 

49710 : 233, 024, 141, 250, 206, 173, 049 

49716 :255, 206, 233, 000, 141, 251, 114 

49722 : 206 , 165 , 197 , 201 , 013 , 240 , 056 

49728 :023, 201, 010, 240, 030, 201, 001 

49734 : 014 , 240 , 046 , 201 , 018 , 240 , 061 

49740 : 053, 201, 020, 240, 079, 201, 102 

49746 : 003, 240, 025, 076, 168, 194, 020 

49752 :169, 000, 141, 227, 205, 032, 094 

49758 :138, 194, 076, 168, 194, 169, 009 

49764 :001, 141, 227, 205, 032, 138, 076 j I 

49770 :194, 076, 168, 194, 032, 138, 140 ' — ' 

49776 :194, 076, 180, 199, 076, 168, 237 

49782 : 194 , 169 , 002 , 141 , 227 , 205 ,032 

49788 :032, 138, 194, 076, 168, 194, 158 

49794 : 169, 003, 141, 227, 205, 076, 183 

49800 : 168, 194, 169, 172, 141, 000, 212 

49806 : 208 , 141 , 254 , 206 , 169 , 000 , 096 

49812 :141, 016, 208, 141, 255, 206, 091 

49818 : 169 , 124, 141 , 001 , 208 , 096 , 125 
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49824 : 169 ,004 , 141 , 227 , 205 , 032 , 170 

49830 : 138 , 194 , 173 , 227 , 205 , 201 , 024 

49836 :003, 208, 016, 169, 034, 141, 231 

49842 : 212 , 205 , 173 , 021 , 208 , 041 , 014 

49848 :254, 141, 021, 208, 076, 204, 064 

49854 : 194 , 169 , 033 , 141 , 212 , 205 , 120 

49860 : 173, 021, 208, 009, 003, 141, 239 

49866 : 021 , 208 , 056 , 173 , 001 , 208 , 101 

49872 :233, 050, 141, 248, 206, 173, 235 

49878 :000, 220,041,016,208,017, 204 

49884 : 169 ,000 , 141 , 224 , 206 , 162 ,098 

49890 : 000 , 173 , 227 , 205 , 201 , 004 , 012 

49896 :208, 006, 076, 243, 194, 076, 011 

49902 : 018, 196, 076, 125, 195, 173, 253 

49908 :250, 206, 141, 218, 205, 173, 157 

49914 : 251 , 206 , 141 , 219 , 205 , 169 , 161 

49920 : 128 , 141 , 216 , 205 , 169 , 000 , 091 

49926 : 168 , 170 , 141 , 214 , 205 , 142 ,022 

49932 :222, 205, 140, 221, 205, 032, 013 

49938 : 022 , 196 , 174 , 222 , 205 , 172 , 241 

49944 : 221, 205, 173, 224, 205, 045, 073 

49950 : 206 , 207 , 240 , 012 , 173 , 216 , 060 

49956 :205, 025, 000, 008, 153, 000, 171 

49962 .-008,076,057,195,173,216,255 

49968 :205, 073, 255, 057, 000, 008, 134 

49974 : 153 , 000 , 008 , 078 , 216 , 205 , 202 

49980 : 208 , 006 , 169 , 128 , 141 , 216 , 160 

49986 : 205 , 200 , 024 , 173 , 250 , 206 , 100 

49992 :105, 001, 141, 250, 206, 173, 180 

49998 : 251 , 206 , 105 , 000 , 141 , 251 , 008 

50004 : 206 ,232, 224 , 024 , 208 ,177,131 

50010 : 162 , 000 ,173,218, 205 , 141 , 221 

50016 : 250, 206, 173, 219, 205, 141, 010 

50022 : 251 , 206 , 238 , 248 , 206 , 162 , 133 

50028 :000 , 238 , 214 , 205 , 17 3 , 214 , 128 

50034 : 205 ,201 , 021 , 144 , 148 , 169 ,234 

50040 :001, 141, 227, 205, 096, 169, 191 

50046 : 128 , 141 , 226 , 206 , 172 , 224 , 199 

50052 :206, 185, 000, 008, 045, 226, 034 

50058 : 206 , 240 , 008 , 169 , 001 , 141 ,135 

50064 : 228, 206, 076, 157, 195, 169, 151 

50070 : 000 , 141 , 228 , 206 , 076 , 157 , 1 90 

50076 :195, 173, 227, 205, 201, 003, 136 

50082 : 208 ,039 , 173 , 141 , 002 , 208 , 165 

50088 :008 , 169 , 001 , 141 , 228 , 206 ,153 

50094 :076, 182, 195, 169, 000, 141, 169 

50100 : 228 , 206 , 024 , 173 , 250 , 206 , 243 
|"| 50106 : 105, 011, 141, 250, 206, 173, 048 
1 ] 50112 :251, 206, 105, 000, 141, 251, 122 

501 18 : 206 , 032 , 022 , 1 96 , 096 , 142 , 124 
r— l 
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50124 :216, 206,032, 022, 196, 174,026 

50130 :216, 206, 024, 173, 250, 206, 005 I I 

50136 :105, 001, 141, 250, 206, 173, 068 

50142 : 251 , 206 , 105 , 000 , 141 , 251 , 152 

50148 : 206 , 1 10 , 226 , 206 , 208 , 152 , 056 

50154 : 238 , 224 , 206 , 232 , 224 , 003 , 081 

50160 : 240, 003, 076, 125, 195, 162, 017 

50166 : 000 , 238 , 248 , 206 , 056 , 173 , 143 

50172 :250, 206, 233, 024, 141, 250, 076 I i 

50178 :206, 173, 251, 206, 233, 000,047 

50184 s 141 , 251 , 206 , 172 , 224 , 206 , 184 

50190 : 192 , 063 , 144 , 001 , 096 , 076 , 074 

50196 :125, 195, 173, 250, 206, 141, 086 

50202 : 250, 207 , 173 , 251 , 206 , 141 , 230 

50208 :251, 207, 173, 248, 206, 141, 234 

50214 : 248, 207, 169, 000, 141, 249, 028 

50220 : 207, 173, 250, 207, 141, 212, 210 

50226 : 207 , 173 , 251 , 207 , 141 , 213 , 218 

50232 :207 , 173 , 248 , 207 , 141 , 214 , 222 

50238 : 207 , 173 , 249 , 207 , 141 , 215 , 230 

50244 :207, 173, 215, 207, 074, 141, 061 

50250 : 217 , 207 , 173 , 214 , 207 , 106 , 174 

50256 :141, 216, 207, 173, 217, 207, 217 

50262 : 074 , 141 , 217 , 207 , 173 , 216 , 090 

50268 :207, 106, 141, 216, 207, 173, 118 

50274 : 2 17 , 207 , 074 , 141 , 2 17 , 207 , 137 

50280 :173, 216, 207, 106, 141, 216, 139 

50286 : 207 , 173 , 2 13 , 207 , 074 , 141 , 101 

50292 :219, 207, 173, 212, 207, 106, 216 

50298 : 141, 218, 207, 173, 219, 207, 007 

50304 :074, 141, 219, 207, 173, 218, 136 

50310 :207, 106, 141, 218, 207, 173, 162 

50316 :219, 207, 074, 141, 219, 207, 183 

50322 : 173 , 218 , 207 , 106 , 141 , 218 , 185 

50328 :207, 173, 214, 207, 041, 007, 233 

50334 : 141 , 220 , 207 , 173 , 216 , 207 , 042 

50340 :010, 046, 217, 207, 010, 046, 188 

50346 :217, 207, 010, 141, 210, 207, 138 

50352 :046, 217, 207, 173, 217, 207, 219 

50358 : 141, 211, 207, 173, 210, 207, 051 

50364 :010, 046, 217, 207, 010, 046, 212 ) j 

50370 :217, 207, 109, 210, 207, 141, 005 '- J 

50376 :216, 207, 173, 211, 207, 109, 043 

50382 :217, 207 , 141 , 217 , 207 , 173 ,088 

50388 :216, 207, 010, 046, 217, 207, 091 

50394 : 010, 046, 217, 207, 010, 046, 242 

50400 :217, 207, 141, 216, 207, 173, 105 

50406 : 218, 207, 010, 046, 219, 207, 113 

50412 :010, 046, 219, 207, 010, 046, 006 

50418 :219, 207, 141, 218, 207, 024, 234 



U 



U 

u 

200 U 



Sound and Graphics 4 



H 

n 
n 
n 



n 



H 
n 

n 
n 



50424 : 173 , 216 , 207 , 109 , 218 , 207 ,098 
50430 : 141 , 208 , 207 , 173 , 217 , 207 , 127 
50436 : 109 , 219 , 207 , 141 , 209 , 207 ,072 
50442 :024 , 173 , 220 , 207 , 109 , 208 , 183 
50448 :207, 141, 208, 207, 169 ,000, 180 
50454 s 109 , 209 , 207 , 141 , 209 , 207 , 080 
50460 $024,169,032,109,209,207,010 
50466 : 141 , 209 , 207 , 173 , 208 , 207 , 155 
50472 :133, 251, 173, 209, 207, 133, 122 
50478 : 252 , 173 , 212 , 207 , 041 , 007 , 170 
50484 : 141 , 225 , 207 ,056 , 169 ,007 , 089 
50490 : 237 , 225 , 207 , 141 , 225 , 207 ,020 
50496 :169, 000, 141, 206, 207, 056, 075 
50502 : 173 , 225 , 207 , 046 , 206 , 207 ,110 
50508 :206, 225, 207, 016, 245, 160, 111 
50514 : 000, 173, 227, 205, 201, 005, 125 
50520 : 240, 090, 201, 002, 240, 064, 157 
50526 : 201, 004, 208, 003, 076, 180, 254 
50532 :197,173,228,206,240,010,130 
50538 : 177 , 251 , 013 , 206 , 207 , 145 , 081 
50544 : 251, 076, 180, 197, 173, 227, 192 
50550 : 205 , 201 , 001 , 240 , 018 , 173 , 188 
50556 : 206 , 207 , 07 3 , 255 , 141 , 206 , 188 
50562 : 207 , 177 , 251 , 045 , 206 , 207 ,199 
50568 :145, 251, 076, 180, 197, 177, 138 
50574 : 251, 045, 206, 207, 240, 032, 099 
50580 :177 , 251 ,013 , 206 ,207 , 145 ,123 
50586 : 251 , 076 , 180 , 197 , 177 , 251 , 006 
50592 :045, 206, 207, 240, 015, 173, 022 
50598 : 206 , 207 , 073 , 255 , 141 , 206 , 230 
50604 : 207 , 1 7 7 , 25 1 , 045 ,206,207, 241 
50610 : 145, 251, 177, 251, 141, 224, 087 
50616 :205, 096, 165, 197, 201, 004, 028 
50622 : 208 , 046 , 169 , 000 , 1 33 , 170 , 148 
50628 : 169, 032, 133, 171, 160, 000, 093 
50634 : 152, 145, 170, 056, 165, 170, 036 
50640 :233, 255, 141, 212, 206, 165, 140 
50646 : 171 , 233 , 063 , 013 , 212 , 206 , 088 
50652 :240, 016, 024, 165, 170, 105, 172 
50658 : 001 , 133 , 170 , 165 , 171 , 105 , 203 
50664 :000, 133, 171, 076, 200, 197, 241 
50670 :096, 165,197, 170,201,028,071 
50676 :208, 008, 169, 015, 141, 212, 229 
50682 : 206, 076, 010, 198, 201, 021, 194 
50688 :208 , 104 , 169 , 240 , 141 , 212 , 050 
50694 : 206 , 076 , 034 , 198 , 238 , 214 , 204 
50700 : 206 , 173 , 214 , 206 , 045 , 212 , 044 
50706 : 206 , 201 , 015 , 208 , 035 , 173 , 088 
50712 : 214, 206, 041, 240, 141, 214, 056 
50718 : 206, 076, 058, 198, 024, 173, 253 
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50724 : 2 14 , 206 , 105 , 016 , 141 , 2 14 , 164 

50730 : 206 , 045 , 2 12 , 206 , 201 , 240 , 128 

50736 :208, 008, 173 ,214, 206, 041, 130 

50742 : 015 , 141 , 214, 206 , 169 , 000 ,031 

50748 :133, 170, 169, 004, 133, 171, 072 

50754 : 173, 214, 206, 160, 000, 145, 196 

50760 : 170, 056, 165, 170, 233, 231, 073 

50766 : 141 , 212 , 206 , 165 , 171 , 233 , 182 

50772 :007, 013, 212, 206, 176, 016, 202 M 

50778 :024, 165, 170, 105, 001, 133, 176 

50784 : 170, 165, 171, 105, 000, 133, 072 

50790 : 171 , 076 , 066 , 198 , 096 , 160 , 101 

50796 :128, 185, 119, 198, 153, 064, 187 

50802 : 008, 136, 016, 247, 096, 255, 104 

50808 :255, 255, 192, 000, 003, 192, 249 

50814 : 000, 003, 192, 000, 003, 192, 004 

50820 :000, 003, 192, 000, 003, 192, 010 

50826 : 000 , 003 , 192 , 000 , 003 , 192 , 016 

50832 :000, 003, 192, 000, 003, 192, 022 

50838 : 000, 003, 192, 000, 003, 192, 028 

50844 : 000, 003, 192, 000, 003, 192, 034 

50850 : 000, 003, 192, 000, 003, 192, 040 

50856 :000, 003, 192, 000, 003, 192, 046 

50862 : 000 , 003 , 192 , 000 , 003 , 255 ,115 

50868 :255, 255, 000, 000, 048, 000, 226 

50874 : 000 , 060 , 000 , 000 , 063 , 000 , 05 3 

50880 : 000, 062, 000, 000, 055, 000, 053 

50886 :000, 003, 128, 000, 001, 192, 010 

50892 :000, 000, 224, 000, 000, 000, 172 

50898 : 000 , 000 , 000 , 000 , 000 , 000 , 210 

50904 : 000 , 000 , 000 , 000 , 000 , 000 ,216 

50910 : 000 , 000 , 000 , 000 , 000 , 000 ,222 

50916 : 000 , 000 , 000 , 000 , 000 , 000 ,228 

509 22 : 000 , 000 , 000 , 000 , 000 , 000 , 234 

50928 : 000 ,000 , 000 , 000 , 000 , 000 , 240 

509 34 : 000 ,000 , 000 , 000 , 000 , 000 , 246 

50940 :000, 169, 012, 141, 033, 208, 047 

50946 : 169, 147, 032, 210, 255, 169, 216 

50952 :021, 141, 024, 208, 169, 027, 086 

50958 : 141, 017, 208, 169, 000, 141, 178 

50964 :208, 205, 133, 180, 141, 207, 070 

50970 : 205 , 141 , 206 , 205 , 133 , 195 , 087 

50976 :169, 216, 133, 196, 169, 004, 151 

50982 : 133 , 181 , 162 ,000 , 160 , 000 , 162 

50988 :169, 128, 141, 210, 205, 140, 013 

50994 : 206 , 205 , 172 , 207 , 205 , 185 , 206 

51000 :000, 008, 140, 207, 205, 172, 020 

51006 : 206, 205, 045, 210, 205, 240, 149 



202 



! I 



n 
n 
n 

n 



Sound and Graphics 4 



H 

n 



n 



51012 :011, 169, 001, 145, 195, 169, 246 

51018 : 160 , 145 , 180 , 076 , 088 , 199 , 154 

51024 : 169 ,000 , 145 , 195 , 169 , 160 , 150 

51030 $145,180,024,165,195,105,132 

51036 :001, 133, 195, 165 ,196, 105, 119 

51042 :000, 133, 196, 024, 165, 180, 028 

51048 :105, 001, 133, 180, 165, 181, 101 

51054 : 105, 000, 133, 181, 078, 210, 049 

51060 -.205,173,210,205,240,003,128 

51066 : 076 , 049 , 199 , 238 , 207 , 205 , 072 

51072 :169, 128, 141, 210, 205, 232, 189 

51078 : 224 , 003 , 144, 167 ,024 , 165 , 093 

51084 : 180 , 105 , 016 , 133 , 180 , 16 5 , 15 1 

51090 : 181, 105, 000, 133, 181, 024, 002 

51096 :165, 195, 105, 016, 133, 195, 193 

51102 : 165, 196, 105, 000, 133, 196, 185 

51108 :162, 000, 238, 208, 205, 173, 126 

51114 : 208 , 205 , 201 ,021 , 176 ,003 ,216 

51120 : 076, 049, 199, 096, 169, 001, 254 

51126 : 141 , 238 , 002 , 096 , 165 , 197 , 253 

51132 :201, 041, 240, 001, 096, 169, 168 

51138 : 000, 032, 189, 255, 169, 004, 075 

51144 : 170, 160, 255, 032, 186, 255, 234 

51150 :032, 192, 255, 162, 004, 032, 115 

51156 : 201, 255, 176, 003, 076, 220, 119 

51162 : 199 , 096 , 169 , 008 , 032 , 210 , 164 

51168 :255, 169, 013, 032, 210, 255, 134 

51174 : 162, 000, 169, 001, 141, 204, 139 

51180 : 205 , 169 ,000 , 141 , 250 , 206 , 183 

51186 : 169 , 000 , 141 , 251 , 206 , 169 , 154 

51192 : 199 , 141 , 248 , 206 , 169 , 005 , 192 

51198 : 141, 227, 205, 142, 242, 002, 189 

51204 : 032 ,022 , 196 , 174 , 242 ,002 , 160 

51210 : 173, 224, 205, 045, 206, 207, 046 

51216 : 240, 012, 173, 202, 205, 013, 093 

51222 : 204, 205, 141, 202, 205, 076, 031 

51228 :041, 200, 173, 204, 205, 073, 156 

51234 : 255 , 045 , 202 , 205 , 141 , 202 , 060 

51240 :205, 014, 204, 205, 173, 204, 021 
51246 : 205, 201, 128, 240, 020, 024, 096 

51252 :173, 250, 206, 105, 001, 141, 160 

51258 : 250, 206, 173, 251, 206, 105, 225 
51264 :000, 141, 251, 206, 076, 001, 227 
51270 : 200, 173 , 202 , 205 ,009 , 128 , 219 
51276 : 224, 045, 144, 010, 173, 202, 106 

51282 : 205 , 041 , 031 , 009 , 128 , 141 , 125 
51288 :202, 205, 168, 032, 210, 255, 136 
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51294 
51300 
51306 
51312 
51318 
51324 
51330 
51336 
51342 
51348 
51354 
51360 
51366 
51372 
51378 
51384 
51390 
51396 
51402 
51408 
51414 
51420 
51426 
51432 
51438 
51444 
51450 
51456 
51462 
51468 
51474 
51480 
51486 
51492 
51498 
51504 
51510 
51516 
51522 
51528 
51534 
51540 
51546 
51552 



:152 

:141 

:202 

:233 

:251 

:206 

:206 

:001 

:024 

:141 

:105 

169 

013 

200 

032 

002 

202 

002 

032 

162 

255 

032 

167 

001 

002 

189 

169 

162 

255 

240 

170 

000 

181 

062 

003 

173 

165 

165 

024 

180 

181 

141 

063 

096 



,032,210 
,204,205 
,205,056 
,006,141 
,206,233 
,206,248 
,201,255 
,200,224 
,173,250 
,250,206 
,000,141 
,199,141 
,032,210 
,169,013 
,231,255 
,160,255 
,208,248 
,174,168 
,186,255 
,172,160 
,169,000 
,032,213 
,002,174 
,032,186 
,162,172 
,255,169 
,000,133 
,255,160 
,096,165 
,001,096 
,169,032 
,133,180 
,160,000 
,003,177 
,173,062 
,064,003 
,170,105 
,171,105 
,165,180 
,165,181 
,056,165 
,200,205 
,013,200 
,013,013 



,255, 
,169, 
,173, 
,250, 
,000, 
,206, 
,240, 
,045, 
,206, 
,173, 
,251, 
,248, 
,255, 
,032, 
,096, 
,136, 
,096, 
,002, 
,173, 
,002, 
,162, 
,255, 
,168, 
,255, 
,160, 
,032, 
,253, 
,063, 
,197, 
,169, 
,133, 
,169, 
,177, 
,180, 
,003, 
,145, 
,001, 
,000, 
,105, 
,105, 
,170, 
,165, 
,205, 
,013, 



169,001,145 
000,141,192 
250,206,174 
206,173,097 
141,251,176 
173,248,131 
003,076,087 
176,031,045 
105,007,139 
251,206,095 
206,232,065 
206,169,012 
076,001,241 
210,255,027 
174,240,182 
208,253,174 
173,167,004 
160,001,191 
169,002,251 
032,189,157 
000,160,192 
096,173,253 
002,160,131 
173,169,024 
002,032,000 
133,254,252 
169,253,203 
032,216,120 
201,022,174 
000,133,139 
171,169,094 
096,133,223 
170,141,091 
141,064,151 
145,180,096 
170,024,115 
133,170,030 
133,171,037 
001,133,162 
000,133,068 
233,255,114 
171,233,175 
144,193,140 
013,013,001 
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r- 1 Program 2. BASIC Portion of Hi-Res Graphics Editor 

I J For mistake-proof program entry, be sure to use 'The Automatic Proofreader," Appendix C. 

5 INPUT "{CLR} JOYSTICK SPEED (1-10)";JS$ :rem 137 

, . 6 IP VAL(JS$)<10R VAL(JS$)>10 THEN5 : rem 192 

I [ 7 POKE752,ll-VAL(JS$) :rem 180 

8 FOR T= 2048TO2048+64:POKET,0:NEXT :rem 22 

10 SYS50624 :rem 97 

|— ? 11 SYS49152 :rem 102 

' ..' 12 GETA$:IF PEEK( 197 ) <>3THEN12 :rem 199 

13 FOR T= 1 TO 300:NEXT :rem 188 

15 SYS50941 :rem 104 

16 VI=53248:POKEVI+21,l:POKEVI,21:POKEVI+16,PEEK(V 
1+16 )ORl:POKEVI +1,100 :rem 51 

17 POKE2040,32 :rem 238 
20 SC= 1024:PX=0:PY=0:CN=0:OS=55296:OC=PEEK(OS) 

:rem 24 

30 GET A$:IF A$=""THEN CN=CN+1 :rem 65 

31 IF PEEK(197)=4 THEN FOR T=2048TO2048+64:POKET,0 
:NEXf:SYS50941 :rem 196 

32 IF PEEK(197)=3THENPOKE198,0:FORT=1TO300:NEXT:GO 
TOll :rem 62 

33 IF A$="{L}"THEN GOSUB 300 :SYS51394 :GOSUB400 :SYS 
50941 :rem 242 

34 IF A$=" {HOME} "THEN GOSUB300 :SYS51425 :GOSUB400 :S 
YS50941 :rem 245 

40 IF CN= 2 THEN POKE SC,PEEK(SC)OR128 :CN=0 

:rem 147 
50 IF CN= 1 THEN POKE SC,PEEK(SC)AND127 : rem 140 

60 IF (PEEK( 56320 )AND16)<>0 THEN 65 :rem 58 

61 IF PEEK(653)THEN POKESC+54272,0:SH=1 :GOSUB200:G 
OTO 65 :rem 246 

63 POKESC+54272,1:SH=0:GOSUB 200 : rem 72 

65 IF 15-PEEK( 56320 )=0 THEN 79 :rem 15 

66 FL=0:OC=PEEK(SC+54272):OS=SC+54272 :rem 141 
70 ON 15-PEEK( 56320 )AND15GOSUB 80,90,95,100,120,13 

0,140,150,160,170 :rem 163 

72 POKESC, (PEEK(SC)OR128) :rem 243 

75 SC=1024+40*Y+X :rem 155 

79 GOTO 30 :rem 12 

80 Y =Y+(Y>0) : RETURN :rem 180 
90 Y=Y-(Y< 20): RETURN :rem 231 
95 RETURN : rem 78 
100 X=X+(X>0): RETURN :rem 218 
110 RETURN :rem 114 
120 Y=Y+(Y>0):X=X+(X>0) :RETURN : rem 72 
130 Y=Y-(Y<20):X=X+(X>0):RETURN :rem 123 
140 RETURN :rem 117 
150 X=X- (X< 23 ): RETURN : rem 20 
160 Y=Y+(Y>-0):X=X-(X<23):RETURN :rem 174 
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170 Y=Y-(Y< 20): X=X-(X< 23) : RETURN :rera 180 J 

200 BO=Y*3+INT(X/8) : rem 60 j j 

210 BT= 2t(7-(X-INT(X/8)*8)):P=64*PEEK(2040)+BO 

: rem 49 
220 IF SH=0 THENPOKEP,PEEK(P)ORBT:GOTO230 : rem 10 
225 POKEP,PEEK(P)AND(255-BT):SH=0 :rem 207 

230 RETURN : rem 117 

300 PRINT"{BLK}{7 RIGHT} {CLR} {RVS}D{OFF}lSK OR 
{RVS}T{OFF}APE" :rem 144 j 

301 GET J$:IF J$=""THEN301 : rem 93 

302 IF J$o"D"AND J$o"T"THEN 301 : rem 170 

303 INPUT "FILENAME ";FI$ :rem 153 

305 IF LEFT$(J$,1)="D"THEN D=8:GOTO310 : rem 70 , 

306 D=l :rem 75 
310 FOR T= 684 TO 684+LEN(FI$)-l :POKET, ASC(MID$ (FI 

$,T-683,1)):NEXT :reml50 

320 POKE679,D:POKE680,D:POKE681,LEN(FI$) :POKE682,l 

72:POKE683,2 :rem 159 

325 RETURN : rem 122 

400 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:PRINTA$;" ";B 

$" ";C$;" ";C$;" ";D$ :rem 52 

405 CL0SE15 :rem 117 

410 FOR T= 1T0 3000 :NEXT : RETURN : rem 55 



u 
u 

u 

206 U 



n 
n 

n 



HiSprite 



Michael J. Blyth 



"HiSprite" is a machine language utility which 
r™] gives you fast, easy control over Commodore 64's 

sprites from BASIC, including collision monitor- 
ing, joystick control, boundaries, and a high' 
resolution "pen." 



If you've ever tried to write a fast-action game program or a 
complex graphic display using BASIC, Commodore 64 sprites, 
and high-resolution graphics, you've probably been frustrated 
by the slow speed of the program. BASIC is simply too slow 
when it comes to calculating new horizontal and vertical 
velocities and positions for multiple sprites, reading joysticks, 
monitoring collisions, and doing all the necessary PEEKing 
and POKEing for sprites and high-resolution (hi-res) graphics. 
"HiSprite" is a powerful machine language utility which 
handles all these low-level tasks quickly, freeing you to use 
BASIC for high-level control. HiSprite allows fast, complex, 
and smooth control of all eight sprites for either BASIC or ma- 
chine language programs. Variables define horizontal and 
vertical position, velocity, acceleration, and boundaries for 
each sprite. Other variables determine joystick control, hi-res 
plotting, and what action to take: 

• at boundaries (stop, disappear, bounce, or wrap around) 
1—1 • on collision with background (stop, disappear, bounce, or 
' i continue) 

• on collision with another sprite (stop, disappear, bounce, 
I— I "stick") 

Finally, HiSprite can be used either as a subroutine (with SYS 
in BASIC or JSR in machine language) or in a continuous, 
•"1 interrupt-driven mode. 



n 



Entering HiSprite 

First, you'll need to type in HiSprite, found at the end of this 
article. The list of numbers in Program 2 is machine language. 
Only with machine language can you get the speed and power 
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necessary to move sprites easily about the screen. However, | i 

machine language programs aren't as easy to type in as 1 — I 

BASIC. To help you with all this typing, you'll find MLX 
(Appendix D) an invaluable tool. Be sure to read Appendix D 
before you start entering HiSprite. 

Type in and save the MLX program. When you're ready 
to enter HiSprite, turn your computer off, then on again (this , , 

clears it out). Load MLX from tape or disk and type RUN. 1 — ! 

MLX asks you for the starting and ending addresses. The ad- 
dresses are: 

Starting address: 49152 
Ending address: 50705 

Simply follow the directions in Appendix D to enter the pro- 
gram. You don't have to enter it at one sitting, but can save 
your work, typing HiSprite in several sessions. 

How It Works 

After you've entered HiSprite with MLX, you can load it with 
the command LOAD "HISPRITE",8,1 for disk or LOAD 
"HISPRITE",1,1 for tape. Type SYS 49152, then NEW and 
CLR. If you're using the demonstration program, Program 1, 
you only need to type it in (or if you've already entered it, 
type LOAD "HISPRITE.DEMO",8 for disk, LOAD "HISPRITE" 
for tape). If you're using HiSprite with a program of your own, 
you'll first have to SYS 49152, or make sure that statement is 
included in your program. 

Although HiSprite is a complex program, with many vari- 
ables and functions, it's easy to use once you've seen this step- 
by-step demonstration of its abilities. 

In HiSprite, integer arrays hold the information needed 
for controlling each sprite. The horizontal and vertical (X and J. | 

Y) directions are controlled independently. The variables and ' — 

their functions are: 

SP%(i,0 or 1) Position of upper left corner of sprite i I j 

(where i is from to 7). SP%(/,0)=X position; SP%(f,l)=Y u - 

position. Any valid integer from —32767 is OK, but the screen 
shows the area from 24 to 344 horizontally and from 50 to 
250 vertically. To position sprite 1 in the upper left corner of 
the screen, you could use: SP%(1,0)=24:SP%(1,1)=50. 

SV%(i',0 or 1) X or Y velocity, again for sprite i. Each time j ( 

HiSprite is called, 1/256 of this value is added to the current ' — ' 
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position. SV%(0,1)=128 thus means that on every other call, 
sprite will move down one dot or pixel. 

SA%(*',0 or 1) X or Y acceleration. Each time HiSprite is 
called, this value is added to the corresponding velocity. 
SA%(3,0)=10 means that SV%(3,0) (X velocity for sprite 3) 
will be automatically increased by 10 on each call. 
i— ] SL%(*,0 or 1) Upper limits for X and Y position. If 

' ' HiSprite detects that sprite i would move beyond its limits, it 

takes appropriate action (see below). 

SL%(*,2 or 3) Lower limits for X and Y position, 
respectively. 

SC%(*,0 or 1) Options such as joystick control and out-of- 
bounds action (details below). 

SC%(i,2-7) Options for action to take when sprite i col- 
lides with another sprite. 

Now we can get started. If you don't still have HiSprite 
loaded into your 64, type: 

LOAD "HISPRITE",8,1 (LOAD "HISPRITE", 1,1 for tape). 
Then type NEW and CLR. 

Seeing Sprites Move 

To begin with, enter and save Program 1, "HiSprite Demo." 

Of course, you can leave out the REM statements. 

Program 1. HiSprite Demo 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 
5 SD=0:SE%=0:SF%=0:SG%=0:SH%=0:SI%=0:SJ%=0:SK%=0:S 
L%=0:HS=49274 :rem 145 

10 DIM SP%(7,1),SV%(7,1),SA%(7,1),SL%(7,3),SC%(7,9 
),SR%(7) srem 186 

20 SE=0: SYS 12*4096 :REM INITIALIZE :rem 16 

n30 V=53248: POKE V+21,255 :REM ENABLE ALL 8 SPRITE 
S :rem 17 

40 FORI=0TO7: REM FOR EACH SPRITE :rem 200 
50 POKE 2040+1,13 :REM MEMORY LOCATION :rem 174 
r~J 60 POKE V+39+1,1 :REM SPRITE COLOR : rem 223 
' 65 SP%(I,0)=60: SP%(I,1)=60: REM POSITION :rem 251 
70 SV%( 1,0) =50*1+5: SV%(I,l)=50*I+50: REM VELOCITY 

:rem 209 
80 SL%(I,0)=320: SL%(I, 1)=230: REM UPPER LIMITS 

:rem 55 
85 SL%(I,2)=24: SL%(I,3)=50: REM LOWER LIMITS 

:rem 222 
90 SC%(I,0)=1:SC%(I,1)=1: REM OPTIONS :rem 44 
100 NEXT trera 208 
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200 FORI=832T0896: POKEI, 255 :NEXT :REM CREATE SPRI 

TE SHAPE :rera 243 

210 F0RI=844T0885: POKEI, 28: NEXT: PORI=859T0867: 

{ SPACE} POKEI, 0: NEXT :rem 197 

220 POKE857,8: POKE869,8 :rem 63 | j 

300 SYS HS :rera 45 ' — ' 

400 GOTO 3 00 :rem 96 

Program Notes 1 | 

• The arrays and variables in lines 5 and 10 must be the first 
ones used in the program, and must be defined in the order 
shown. 

• Line 50 defines the location (13*64) of the shape infor- 
mation, which is the same for all eight sprites in this pro- 
gram. You could alter the shape information to create your 
own sprites if you wanted. Line 60 sets a different color for 
each sprite. 

• Lines 200-220 put the shape information where we want it. 

• Line 300 is an infinite loop calling the main part of HiSprite. 

Velocities, Borders, and Acceleration 

Now run the program. You'll see all eight sprites moving 
downward and rightward, then bouncing against the borders 
defined in lines 80 and 90 (0 and 320 horizontally; and 230 
vertically). The speeds vary according to the definition in line 
70. When you've seen enough, press RUN/STOP. Pressing 
RUN/STOP and RESTORE together erases the sprites. Let's 
try some changes. First, adjust the Y velocity in line 70 by 
changing SV%(I,l)=50*I+50 to SV%(I,1)= 100*1+ 150 and 
rerunning the program. You can adjust the X velocity by 
changing SV%(I,0) to something similar. 

Line 90 determines what happens when the borders are 
reached. Try using values through 3 for SC%(I,1) and/or 
SC%(I,0) and see what happens with each one. Then return to 
using 1. 

You can use the joysticks to control (gate) either the veloc- 
ity or the acceleration of sprites. For example, if the vertical 
velocity is gated, then the sprite will only move vertically ) i 

when the joystick is moved up or down. When acceleration is ^ 

gated, the sprite moves continuously but is sped up and 
slowed down by the joystick. Change line 30 and add the 
other two lines: 
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30 V=53248: POKE V+21,3 
270 SC%(0,0)=33:SC%(0,1)=33 
275 SV%(0,0)=300:SV%(0,1)=300 

Try it. X and Y velocities are gated by the joystick in port 2. 
Now change both values of 33 to 65 in line 270, add line 280, 
and rerun: 



280 SA%(0,0)=10:SA%(0,1)=10 

Now the accelerations are gated. 

Friction and Drawing 

There are other options available with the control or option 
variables SC%(f,0) and SC%(i,l). Unlike the other variables, 
these depend on the setting of individual bits (each integer 
consists of 16 bits numbered to 15). For example, bits 1 and 

control what happens at borders (01= bounce), while bit 5 
controls velocity gating (l=gate). To determine the value 
which will set the desired bits, start with 0, add 1 to set bit 0, 
2 to set bit 1, 4 for bit 2, 8 for bit 3, and so on up to 2048 for 
bit 11. Thus to bounce at borders and gate velocity, we add 1 
(bounce) and 32 (gate velocity) to give 33. Take a look at Table 

1 for the control option bits and values to set. Within a pro- 
gram you may want to set/clear given bits of SC% like this: 
To set bit K: SC%(...)=SC%(...)OR2tK 
To clear bit K: SC%(...)=SC%(...) AND NOT2TK 

Now we can continue experimenting. Reset SC%(0,0) and 
SC%(0,1) to 1 in line 270, delete 280, and add: 

290 SV%(0,1)=0:POKE V+21,1 
310 SA%(0,1)=120-SP%(0,1) 

Run the program to see the changes in effect. Line 290 cancels 
sprite 0's Y velocity and for clarity disables all other sprites; 
line 310 plots a sine curve by defining sprite 0's Y acceleration 
in terms of its distance from 120. The sprite acts like a mass 
[""j on a spring, with the tension proportional to the stretch. We 

can add friction (acceleration opposite velocity) by changing 
310 and rerunning: 

M 310 SA%(0,1)=120-SP%(0,1)-.01*SV%(0,1) 

Finally, here's a taste of hi-res graphics. Add the following line 
and rerun: 



280 SC%(0,1)=257:SYS50647:SYS50577:SYS506 
15 
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This line does four things: makes sprite start drawing; turns I [ 

on the hi-res mode; clears the color information for hi-res 

screen; and clears the hi-res screen itself. To get back to the 

usual mode from hi-res, you can either use SYS 50679 or press | ! 

RUN/STOP together with RESTORE to reset the computer. '- J 

To get interesting Lissajous patterns of motion, you can 
make sprite vibrate in its X direction as well: I j 

295 A%=RND(l)*8+2:B%=RND(l)*8+2 
310 SA%(0,1)=(120-SP%(0,1))/A% 
320 SA%(0,0)=(120-SP%(0,0))/B% 

In the next section, we'll continue with hi-res and look at 
collisions, multicolor hi-res, and interrupt mode, so save what 
you've done so far. 

Table 1. Summary of Control Variables 



BASIC Variables 








SP%(i,0) 


Horizontal position 




(U) 


Vertical 


position 




SV%(i,0) 


Horizontal velocity (dots per 256 calls) 




(U) 


Vertical 


velocity 




SA%(i,0) 


Horizontal acceleration (changes in velocity per call) 




(U) 


Vertical acceleration 




SL%(i,0) 


Horizontal upper boundary 




(U) 


Vertical 


upper 


boundary 




(W) 


Horizontal lower boundary 




m 


Vertical lower 


boundary 




SC%(i',0) 


Horizontal control: 






Bits 


Value 


Function 






0-1 




Action at boundary: 











Stop 


U 






1 


Bounce (reverse direction) 






2 


Wrap (enter at opposite boundary) 








3 


Disable (make sprite disappear) 






2-3 




Action on collision with background: 


U 









No action (ignores collision) 






4 


Bounce 








8 
12 


Stop 
Disable 


y 




4 


16 


Monitor sprite-sprite collisions 






5 


32 


Gate velocity 


u 




6 


64 


Gate acceleration 
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128 


Joystick in port 2 
Joystick in port 1 
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SC%(U) 



Vertical control. Same as SC%(/,0) plus: 



Bits Value Function 
8 256 Pen-down (for hi-res plotting) 

9-10 Pen color (multicolor mode only): 

Screen color 
512 Upper 4 bits of screen memory 
1024 Lower 4 bits of screen memory 
1736 Color nybble (starting at location 
55296) 
SC%(/,2)/(i',3) Horizontal/Vertical: stop on collision with sprite 
whose corresponding bits are set 
Horizontal/Vertical: stick on sprite collision 
Horizontal/Vertical: bounce on sprite collision 
Horizontal/Vertical: disable on sprite collision 
Offset (from beginning of screen) of character lying 
under sprite i 

l=move sprites on interrupt 
0= Don't move sprites on interrupt 
Latched out of bounds flags (1 bit for each sprite) 
Sprite-sprite collision flags 
Background collision flags 
Latched sprite-sprite collision flags 
Latched background collision flags 
Release switches, sprite-sprite collision 
Release switches, background collisions 
Number of jiffies (1/60 second) required per call in 
interrupt mode (1-255) 

Subroutine Addresses 

Decimal Hex Function 

49152 C000 Initialization 

49274 C07A Main mover subroutine 

50577 C591 Fill main screen with character in 

50607 ($C5AF) 

(color information in normal hi- 
res mode) 
50615 C5B7 Clear hi-res screen 

50644 C5D4 Turn on multicolor hi-res mode 

50647 C5D7 Turn on standard hi-res mode 

50679 C5F7 Turn off hi-res mode 

Note: For the sake of speed, HiSprite does not "look up" the 
location of BASIC variables and arrays, but rather depends on 
their being defined in a fixed order. Therefore, any names can 
be attached to them, except for SP%(...) which must be the 
first array. For example, if the first program line is: 
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0',4)/(/,5) 
(«,6)/(f,7) 

(t,8)/(t,9) 
SR%(i) 

SD 

SE% 

SF% 

SG% 

SH% 

SI% 

SJ% 

SK% 

SL% 



4 Sound and Graphics 



A=0:B%=0:C%=0:D%=0:F%=0:G%=0:H%=0:I%=0 
then A will act as SD, B% as SE%, and so on. 



Set To 


Set To 


Value 


Action 











No action (collisions ignored) 





1 


4 


Bounce (reverse direction) 


1 





8 


Stop 


1 


1 


12 


Disable (disappear and stop 
moving) 
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Collision Handling j 

One of the most powerful features of HiSprite is its ability to ' — 
monitor and flexibly react to sprite to background and sprite to 

sprite collisions. Let's deal first with the background collisions, i i 

that is, a collision between a sprite and anything on the screen ' — ' 
besides another sprite. The sprite's X and Y motion is con- 
trolled by bits 2-3 of SC%(i,0) and SC%(f,l), respectively: 

Bit 3 Bit 2 Total 



Try it out. Put a REM at the beginning of line 280 of the al- 
tered version of Program 1 that you saved earlier, delete lines 
310 and 320, and change 270 and 290 to: 

270 SC%(0,0)=9:SC%(0,1)=5 
290 SV%( 0,1) =200: POKE V+21,1 

Clear the screen, type a few characters here and there on it, 

and run the program. When sprite hits a character it should 

stop its horizontal motion and reverse (bounce) vertically. 

Now make either SC%(0,0) or SC%(0,1)=13 and rerun. This 

will cause the sprite to disappear when it hits a character. Try 

out various combinations with different patterns of characters 

on the screen. For example, if you make both SC%(0,0) and 

SC%(0,1)=77 (that is, 1 + 12+64) and both SA%(0,0) and , 

SA%(0,1)=10, you have a game where you must maneuver 1 I 

your sprite around obstacles. If you miss, your sprite vanishes. 

Collisions between sprites are slightly more complicated ( . 

because we want the flexibility of acting differently on col- j | 

lisions between different sprites. When bit 4 of SC%(z,0) or 
SC%(/,1) is set, sprite i is monitored for collisions with other 
sprites. SC%(f,2) through SC%(i,9) determine what happens [J 

when sprite i hits another: 

U 
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f""| Horizontal Vertical Action 

SC%(/,2) SC%(/,3) Stop 



SC%(i',4) SC%(»,5) Stick (stay with other sprite) 

SC%(/,6) SC%(i,7) Bounce 



SC%(t',8) SC%(i,9) Disable 

Individual bits of SC% (f,2) through SC%(/,9) select the action 
H~] to take when the corresponding sprite is hit. Setting bits 

through 7 selects the corresponding sprite against which the 
action is taken. For example, bit of SC%(3,2) means stop 
sprite 3 horizontally on collision with sprite 0, while bit 3 of 
SC%(2,5) means sprite 2 sticks vertically on collision with sprite 
3. If we want sprite to stick horizontally to sprites 1 and 3, 
and stop vertically when it hits sprites 2 or 4, we use: 

SC°/o(0,0)=17 (monitor collisions; bounce at borders) 

SC»/o(0,l)=17 

SC%(0,3)=20 (bits 2 and 4 set: 4+16=20) 

SC%(0,4)=10 (bits 1 and 3 set: 2+8=10) 

Experiment again with various combinations before continu- 
ing. Remember that regardless of the settings of SC%(i,2) to 
(z',9), collisions are ignored if bit 4 is not set (value of 16) in 
SC%(0,0) or SC%(0 / 1). When more than two sprites collide at 
once, the results are sometimes not what you would expect. 
This is because the computer only keeps track of which sprites 
have collided, not between which sprites collisions have 
occurred. 

You may have already noticed that we need a way to free 
sprites once they stop or stick. Two variables do this. Setting 
bit i of SJ% or SK% releases sprite i from sprite or background 
collisions, respectively. Once released, the sprite moves freely 
until it is unstuck (free), then its collision monitoring is re- 

! I sumed. Thus if sprite 6 is stuck on background, you can say 
SK%=SK%OR2t6 or SK%=SK%OR64 to release it. 

There are a few other useful variables for collisions. SF% 

[""] and SG% contain the current sprite and background collision 
flags, respectively (bit i is set when sprite i collides with back- 
ground or any sprite). SF% and SG% should be used rather 

!"~| than the usual PEEKs (locations 53278 and 53279), since 

PEEKing the flags clears them. SH% and SI% contain latched 
sprite and background collision flags; once one of these bits is 

!""] set by a collision, it remains set until you clear it. This allows 
you to catch events without having to monitor each one 



215 



4 Sound and Graphics 



constantly. Finally, SE% contains latched out-of-bounds flags; 
bit i is set when sprite i hits one of its boundaries. 
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High-Resolution 

The hi-res features of HiSprite are best understood if you're 

familiar with the principles of hi-res on the 64 as outlined in 

the Programmer's Reference Guide, pages 100-105 and pages , , 

121-128. Briefly, the hi-res screen is an 8K area of memory I I 

where every pixel of the video screen is represented. HiSprite 
can be used to draw on this screen. For starters, you need to 
get the computer into the hi-res mode. With HiSprite, SYSing 
50647 does this. This places the hi-res screen at location 8192. 
If you need it somewhere else, as you might if you have a 
large program, you must set up the hi-res mode yourself. 

Try this out by typing SYS 50647 and hitting RETURN. 
The screen will turn to garbage. Now type SYS 50615 and RE- 
TURN to clear the hi-res screen. You won't see what you're 
typing; if you make a mistake, type SHIFT-RETURN and start 
over. Why isn't the entire screen the same color? Because the 
hi-res color information comes from the usual screen memory, 
which now has miscellaneous text, including the SYS com- 
mands you just typed. To clear what is now the hi-res color 
screen, type SYS 50577 and RETURN. This fills the color area 
with whatever is in location 50607. There will be a little gar- 
bage at the screen bottom. Now return to the usual mode with 
SYS 50679 and RETURN. You'll see most of the screen filled 
with the letter L. 

Drawing on Hi-Res 

How do you draw on the screen once you're in hi-res mode? 
Setting bit eight of SC%(f,l) puts sprite z's "pen down," caus- 
ing a dot to be drawn near the center of the sprite (specifically, j j 

the sprite's twelfth column, tenth row). A moving sprite with 
its pen down draws a curve along its path. There is a limita- 
tion, however; the dots are drawn only in positions actually j j 

occupied by the sprite, not in any it may have passed over. 
Thus velocities greater than 256 (one dot per call) will leave 
discontinuous or dotted curves. Now go back to the original j J 

version of Program 1, enter line 280 and rerun: 

280 SC% (0,1) =257: SYS 50647: SYS 50577: SY i , 
S 50615 I I 
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Try playing around a little. For instance, you could change line 
280 to read FOR A=0 TO 7:SC%(A,1)=257:SYS 50647:SYS 
50577:SYS 50615:NEXT, and all eight sprites will use their 
!"""] pen. Remember that 

SC%(0,l)=<anything>AND NOT256 

will pick up the pen (no drawing) while 
SC°/o(0,l)= <ariything>OR256 

will put it down. 

Pen Colors 

In standard hi-res mode, the color of an on dot is taken from 
the upper four bits of the corresponding screen memory loca- 
tion, while the color of off dots is from the lower four bits. All 
on dots in each character position have the same color scheme. 
If we want to set the color a sprite is drawing, we need to 
know what screen memory location to use. If sprite i's pen is 
down, then SR%(i) gives the character position where it is 
drawing. The position is expressed as an offset from the begin- 
ning of the screen. To cause sprite to draw light blue (color 
14) on a black background (color 0), put 0+16*14 into the 
locations under the sprite. For instance: 

POKE 1024+SR%(0),224 

If you wanted the same pen/background color everywhere, 

you could use 

POKE 50607,224: SYS 50577 

to fill the entire color screen. 

SR%(i) can also be used for other graphics modes as long 
as the sprite's pen is down: 

POKE1024+SR%(0),0:POKE55296+SR%(0),14 

puts a light blue @ (character 0) where sprite is. If you try 
this with Program 1, a light blue @ character should appear in 
the top left-hand corner of the screen. 

Multicolor Hi-Res 

In multicolor hi-res mode, the color of each dot can be set in- 
dependently. The tradeoff is that each dot is twice as wide, so 
there is only half as much horizontal resolution. SYS 50644 
turns on multicolor hi-res mode; SYS 50679 cancels hi-res and 
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multicolor. While in multicolor mode, bits 9 and 10 of 
SC%(i,l) determine pen color, as follows: 

Source of Color Information 

Background color 
Upper four bits of screen memory 
Lower four bits of screen memory 
Nybble from color memory 

As with the standard hi-res mode, SR%(i) contains the charac- 
ter location offset. To put a color code, say 3, in the color 
nybble under a sprite, POKE 55296 +SR%(i),3. 



Bit 10 


Bit 9 


Value 














1 


512 


1 





1024 


1 


1 


1536 



u 



u 
u 



Interrupt Mode 

Ordinarily, HiSprite is active only when it's called, using SYS 
49274 (see line 300 in Program 1; HS is set in line 5). In inter- 
rupt mode, however, HiSprite is automatically called up once 
each video frame, or about 60 times per second. As long as 
the array variable SP%(...) is defined, the sprites will move 
even when no BASIC program is running. This is most useful 
for designing and testing programs, as it allows you to 
manipulate the control variables in direct mode while you 
watch the results. To try this, take out line 280 again and run 
Program 1. Stop the program, and enter interrupt mode by 
typing in direct mode SD=1 and press RETURN. The sprites 
are moving again. Now change whatever variables you want 
and watch the results. Interrupt mode is turned off by SD=0. 
You can put everything into slow motion by making SL% 
greater than 1. SL% represents the number of video frames re- 
quired to trigger a call to HiSprite. In direct mode, type 
SL%=5: The sprites will slow to a crawl. 

There are two cautions in interrupt mode. First, since the 
interrupt can occur at any time, it will (although rarely) occur 
when BASIC has begun, but not yet finished, changing or 
reading a variable such as acceleration. This will seldom make 
any difference, but if it becomes a problem, set SD to to pre- 
vent interrupts, do your critical operations, then reset SD to 1. 
Second, you should avoid I/O and screen editing while in 
interrupt mode. In fact, I/O may not work correctly while 
HiSprite is active at all, so you may need to hit RUN/ 
STOP-RESTORE first. 

HiSprite may seem complex, but if you experiment with it 

a bit at a time, you'll see how creative it is and how much you I j 

can do simply by manipulating a few variables and adding a 
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little logic. For starters, a sprite that moves and draws is essen- 
tially a turtle, right? Sprites can easily push, pull, block, de- 
stroy, and bounce each other. Automatically maintained 
velocities and accelerations make it easy to have sprites act 
like physical objects such as balls, rockets, or molecules. 

Using HiSprite with Machine Language 

The only preparation required for using HiSprite from a ma- 
chine language program is setting up the variables to look like 
BASIC variables. VARTAB ($2D-2E) and ARYTAB ($2F-$30) 
should point to the storage areas of the variables and arrays 
used by HiSprite. Integer array elements are two bytes long, 
with the high-order byte first, in twos complement form. Ar- 
rays are stored with the first subscript varying fastest. Thus, if 
SC%(0,0) is stored in $2000-2001, the other locations would 
be: 

$2002-2003 SC%(1,0) 

$200E-200F SC%(7,0) 
$2010-2011 SC%(1,1) 

Table 2 gives the required offsets from the location pointed to 
by ARYTAB or VARTAB to the high-order byte of the element 
shown: 



Variable/Element 

SD (Interrupt mode is on if any of 

low-order four bits is 1) 
SE% 
SF% 
SG% 
SH% 
SI% 
SJ% 
SK% 
SL% 



Table 2. 


Offsets 




Offset 


Pointer 


(Decimal) 


VARTAB 


2 




10 




17 




24 




31 




38 




45 




52 
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ARYTAB* 9 


SP%(0,0) 


50 


SV%(0,0) 


91 


SA%(0,0) 


132 


SL%(0,0) 


164 


SL%(0,2) 


205 


SC%(0,0) 


372 


SR%(0) 



*The first two bytes pointed to by ARYTAB must contain 
$D3D0 (representing "SP%"). Otherwise no header information is 
required. 

linking HiSprite to BASIC Programs 

HiSprite must be loaded before a BASIC program can use it. 
The most straightforward way to do this is manually, that is, 
to enter 

LOAD "HISPRITE",8,1 (or ...,1,1 for tape) 

before running the main program(s). Another possibility is to 
have the main program load HiSprite each time it runs: 

10 IP S=0 THEN S=l: LOAD "HISPRITE", 8, 1 

20 CLR 

30 . . . REST OP PROGRAM 

If the main program is going to be run repeatedly, however, 
it's pointless to load HiSprite each time. So the third approach 
is to use a loader program to load HiSprite first and then the 
main program: 

10 IP S=0 THEN S=l: LOAD "HI SPRITE ",8,1 
20 PRINT" {CLR} {3 D0WN}L0AD"CHR$(34)"MAIN 

{SPACE}PRG"CHR$(34)",8" 
30 PRINT" [HOME} ":POKE 631,13:P0KE 198,1:E.ND 
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Program 2. HiSprite 

For easy entry of this machine language program, be sure to use "The Machine Language 
Editor: MIX," Appendix D. 

49152 :169, 127, 141,013, 220, 173,075 

49158 s 021, 003, 205, 098, 196, 240, 001 

49164 :015,141,100,196,173,020,145 

49170 :003, 141, 099, 196, 173, 098, 216 I | 

49176 :196, 141, 021, 003, 173, 097, 143 <— J 

49182 : 196, 141, 020, 003, 173, 017, 068 

49188 $208,041,127,141,017,208,010 , , 

49194 :173, 026, 208, 009, 001, 141, 088 [_J 

49200 :026, 208, 169, 240, 141, 018, 082 
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49206 : 208, 169, 129, 141, 013, 220, 166 

49212 : 160, 059, 169, 001, 145, 045, 127 

49218 : 096, 173, 025, 208, 041, 001, 098 

49224 : 208 , 003 , 108 , 099, 196 , 141 , 059 

49230 : 082, 196, 141, 025, 208, 173, 135 

49236 :030, 208, 141, 084, 196, 173, 148 

49242 : 031, 208, 141, 085, 196, 160, 143 

49248 : 002 , 177 , 045 , 041 , 015 , 240 , 104 

49254 : 015, 206, 137, 196, 208, 010, 106 

49260 : 160, 059, 177, 045, 141, 137, 059 

49266 : 196, 032, 135, 192, 076, 188, 165 

49272 : 254 , 096 , 173 , 018, 208 , 201 , 046 

49278 : 240, 176 , 011 , 201 , 025 , 176 , 187 

49284 : 245, 144, 005, 173, 082, 196, 209 

49290 : 240, 237, 160, 000, 177, 047, 231 

49296 : 201, 211, 208, 229, 200, 177, 090 

49302 : 047, 201, 208, 208, 222, 032, 044 

49308 :020, 193, 056, 165, 052, 174, 048 

49314 :083, 196, 042, 176, 105, 232, 228 

49320 :044, 136, 196, 240, 247, 133, 140 

49326 :052, 142,083, 196,138,010,027 

49332 : 141, 093, 196, 109, 101, 196, 248 

49338 : 133, 047, 173, 102, 196, 105, 174 

49344 :000 , 133 , 048 , 169, 008 , 032 , 070 

49350 : 149, 193, 176, 003, 032, 102, 085 

49356 :194,032,077,195,032,239,205 

49362 : 195, 238, 093, 196, 024, 173, 105 

49368 :083, 196,010, 105,016, 109, 223 

49374 : 101, 196, 133, 047, 173, 102, 206 

49380 : 196, 105, 000, 133, 048, 169, 111 

49386 : 002, 032, 149, 193, 176, 003, 021 

49392 : 032, 102, 194, 032, 077, 195, 104 

49398 : 032, 035, 196, 024, 160, 205, 130 

49404 : 177 , 047 , 041 , 001 , 240 , 157 , 147 

49410 : 173, 136, 196, 037, 052, 240, 068 

49416 : 150, 032, 178, 196, 024, 076, 152 

49422 : 159, 192, 032, 126, 193, 096, 044 

49428 : 162 , 008 , 181 , 046, 157 , 100 , 162 

49434 : 196, 202, 208, 248, 173, 021, 050 

49440 : 208 , 141 , 136 , 196 , 162 , 255 , 106 

49446 : 142, 083, 196, 232, 134, 052, 109 

49452 : 142 , 082 , 196 , 142 , 093 , 196 , 12 7 

49458 : 173 , 016 , 208, 141 , 088, 196 , 104 

49464 : 232, 165, 045, 072, 024, 105, 187 

49470 :007, 133,045, 165,046,072,018 

49476 : 144, 002, 230, 046, 160, 017, 155 

49482 : 177, 045, 073, 255, 157, 090, 103 

49488 : 196 , 189 , 084, 196 , 072 , 160 , 209 

49494 : 031, 017, 045, 145, 045, 104, 217 

49500 : 045 , 136 , 196 , 160 , 017 , 145 , 023 
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49506 : 045 , 160 , 045 , 049 , 045 , 145 , 075 

49512 :045, 073, 255, 160, 017, 049, 191 

49518 : 045, 157, 095, 196, 202, 208, 245 

49524 : 008, 104, 133, 046, 104, 133, 132 

495 30 : 045 , 208 , 203 , 096 , 162 , 008 , 076 

49536 : 189, 100, 196, 149, 046, 202, 242 

49542 :208, 248, 173,088, 196, 141, 164 

49548 :016, 208, 173, 136, 196, 141, 242 

49554 : 021 , 208, 096, 133 , 049, 169 , 054 

49560 :000, 141, 094, 196, 160, 206, 181 

49566 : 177, 047, 133, 051, 041, 012, 107 

49572 : 240, 025, 173, 096, 196, 036, 162 

49578 :052, 240, 018, 169, 004, 036, 177 

49584 :051, 240, 097, 010, 037, 051, 150 

49590 s 208, 082 , 165 , 052 , 045 , 091 , 057 

49596 :196, 208, 071, 165, 052, 044, 156 

49602 :095, 196,208,002,024,096,047 

49608 : 165 , 051 , 041 , 016 , 240 , 248, 193 

49614 :024, 165,047, 105, 206, 133, 118 

49620 : 053, 165, 048, 105, 000, 133, 204 

49626 : 054, 160, 017, 177, 045, 069, 228 

49632 :052, 170, 160, 128, 049, 053, 068 

49638 : 208, 034, 138, 160, 064, 049, 115 

49644 :053, 208, 039, 138, 160, 096, 162 

49650 :049, 053, 208, 009, 138, 160, 091 

49656 :032,049,053, 208,023,024, 125 

49662 : 096 , 165 , 052 , 045 , 090 , 196 , 1 30 

49668 : 240, 192 , 032 , 060 , 196 , 096 , 052 

49674 t 165, 052, 073, 255, 045, 136, 224 

49680 : 196, 141, 136, 196, 056, 096, 069 

49686 »162,255,232,106,144,252,149 

49692 $138,010,164,049,192,002,071 

49698 : 208, 002, 105, 015, 024, 109, 241 

49704 : 101, 196, 133, 053, 173, 102, 030 

49710 : 196, 105, 000, 133, 054, 160, 182 

49716 :050, 177, 053, 145, 047, 160, 172 

49722 :051, 177,053, 145,047,236, 255 

49728 :083, 196, 144, 021, 024, 160, 180 

49734 : 092, 177, 053, 160, 051, 113, 204 

49740 :047, 145, 047, 160, 091, 177, 231 

49746 :053, 160,050, 113,047, 145, 138 

49752 :047, 160, 206, 177, 053, 133, 096 

49758 :051, 169, 255, 141, 094, 196, 232 

49764 :024, 096, 173, 094, 196, 208, 123 I | 

49770 :085, 160, 091, 177, 047, 200, 098 ' — ' 

49776 :017,047,240,076,165,051,196 

49782 : 044, 087, 196, 240, 048, 162, 127 

49788 : 000, 041, 128, 240, 001, 232, 254 

49794 : 024, 189, 000, 220, 036, 049, 136 

49800 s 240 , 033 , 042 , 036 , 049 , 208 ,232 
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49806 : 049, 056, 160, 051, 177, 047, 170 

49812 : 160 , 092 , 241 , 047 , 160 , 051 , 131 

49818 : 145, 047, 160, 050, 177, 047, 012 

49824 : 160, 091, 241, 047, 160, 050, 141 

49830 : 145 , 047 , 076, 192 , 194 , 024, 076 

49836 : 160, 092, 177, 047, 160, 051, 091 

49842 : 113 , 047 , 145 , 047 , 160, 091 , 013 

49848 : 177, 047, 160, 050, 113, 047, 010 

49854 : 145 , 047 , 160 , 050 , 177 , 047 , 048 

49860 : 141, 089, 196, 200, 017, 047, 118 

49866 : 240, 027 , 165 , 051 , 044, 086 , 047 

49872 j 196 , 240 , 021 , 162 , 000 , 041 , 100 

49878 : 128, 240, 001 , 232 , 024, 189, 004 

49884 : 000, 220, 036, 049, 240, 006, 003 

49890 :042, 036, 049, 240, 045, 096, 222 

49896 : 174,093 , 196,024, 189, 109, 249 

49902 : 196, 160, 051, 113, 047, 157, 194 

49908 j 109, 196, 141,092, 196, 162, 116 

49914 : 001, 160, 050, 177, 047, 048, 221 

49920 1002,162,000,160,010,113,191 

49926 :047, 145, 047, 160, 009, 177, 079 

49932 :047 , 125 , 134, 196 , 145 , 047 , 194 

49938 : 024, 096, 173, 089, 196, 073, 157 

49944 : 128, 141, 089, 196, 174, 093, 077 

49950 j 196, 189, 109, 196, 160, 051 , 163 

49956 : 241, 047, 157, 109, 196, 141, 159 

49962 : 092, 196, 162, 001, 160, 050, 191 

49968 : 177, 047, 048, 002, 162, 000, 228 

49974 : 160,010, 177,047, 160,050, 146 

49980 : 241 , 047 , 160, 010, 145 , 047 , 198 

49986 : 160,009, 177, 047, 253, 134,078 

49992 : 196 , 145 , 047 , 024 , 096 , 056 , 124 

49998 : 162, 132, 169, 000, 237, 092, 102 

50004 : 196, 160, 133, 177, 047, 160, 189 

50010 :010, 241, 047, 160, 132, 177,089 

50016 :047, 160, 009, 241, 047, 048, 136 

50022 : 027, 056, 162, 164, 169, 000, 168 

50028 : 237, 092, 196, 160, 165, 177, 111 

50034 : 047, 160, 010, 241, 047, 160, 011 

50040 : 164, 177 , 047 , 160 , 009 , 241 , 150 

50046 : 047, 016, 001, 096, 134, 050, 214 

50052 : 160, 010, 177, 045, 005, 052, 069 

50058 : 145 , 045 , 165 , 051 , 041 , 003 , 076 

50064 : 240 , 062 , 201 , 001 , 240 , 034 , 154 

50070 : 201, 003, 240, 074, 056, 169, 125 

50076 S040, 229, 050, 168, 177, 047, 099 

50082 : 170, 200, 177, 047, 160, 010, 158 

50088 t 145 , 047 , 138 , 160 , 009 , 145 , 044 

50094 : 047 , 174 , 093 , 196 , 169 , 000, 085 

50100 : 157, 109, 196, 096, 166, 050, 186 
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50106 
50112 
50118 
50124 
50130 
50136 
50142 
50148 
50154 
50160 
50166 
50172 
50178 
50184 
50190 
50196 
50202 
50208 
50214 
50220 
50226 
50232 
50238 
50244 
50250 
50256 
50262 
50268 
50274 
50280 
50286 
50292 
50298 
50304 
50310 
50316 
50322 
50328 
50334 
50340 
50346 
50352 
50358 
50364 
50370 
50376 
50382 
50388 
50394 
50400 
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173,089, 
132,240, 
208,251, 
050,076, 
160,050, 
160,091, 
047,164, 
165,052, 
196,141, 
083,196, 
009,177, 
165,052, 
196,141, 
196,165, 
141,088, 
006,169, 
096,160, 
000,208, 
010,170, 
240,006, 
208,096, 
157,001, 
000,160, 
051,145, 
050,241, 
047,096, 
032,064, 
000,000, 
192,049, 
201,045, 
000,032, 
165,020, 
169,255, 
049,044, 
000,255, 
080,089, 
084,032, 
089,084, 
057,056, 
032,016, 
192,192, 
003,003, 
170,189, 
176,004, 
096,056, 
007,141, 
133,054, 
053,010, 
054,024, 
144,002, 



196,048, 
005,096, 
032,060, 
160,195, 
036,051, 
145,047, 
050,076, 
073,255, 
136,196, 
010,170, 
047,168, 
073,255, 
088,196, 
052,013, 
196,192, 
255,157, 
010,177, 
096,173, 
160,009, 
169,255, 
160,010, 
208,096, 
051,241, 
047,169, 
047,160, 
000,000, 
000,000, 
000 , 000 , 
234,000, 
208,238, 
107,169, 
005,021, 
133,037, 
032,015, 
000,001, 
082,073, 
077,032, 
072,044, 
051,000, 
008,004, 
048,048, 
173,083, 
001,208, 
201,040, 
233,040, 
161,196, 
152,041, 
038,054, 
101,053, 
230,054, 



005,224,153 
224,164,029 
196,164,085 
169,000,086 
112,002,109 
200,145,236 
160,195,146 
045,136,186 
096,173,148 
024,160,115 
208,013,100 
045,088,162 
076,027,214 
088,196,206 
001,240,104 
000,208,047 
047,157,161 
083,196,020 
177,047,099 
157,001,104 
177,047,236 
056,169,231 
047,160,209 
000,160,128 
050,145,255 
000,000,223 
000,000,182 
000,067,159 
240,012,057 
032,115,175 
208,230,088 
208,006,029 
026,036,010 
016,011,039 
067,079,024 
071,072,095 
066,076,001 
032,049,010 
128,064,002 
002,001,227 
012,012,162 
196,010,132 
201,240,167 
176,001,018 
168,041,060 
169,000,106 
248,133,199 
010,038,159 
133,053,124 
173,088,147 
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50406 :196,037,052,201,001,189,13s 

50412 :000, 208, 133, 050, 106, 201, 166 

50418 : 166, 176, 205, 201, 006, 144, 116 

50424 : 201 , 056 , 233 , 006 , 024, 106 , 106 

50430 : 024, 106, 024, 101, 053, 230, 024 

50436 :048, 160, 101, 145,047, 133, 126 

50442 :053, 165,054, 105,000, 133,008 

50448 : 054, 136, 145, 047, 198, 048, 132 

50454 z 160, 003 , 006, 053 , 038, 054, 080 

50460 : 136, 208, 249, 173 , 161, 196, 127 

50466 : 005, 053, 133, 053, 173, 017, 212 

50472 : 208, 041, 032, 240, 074, 032, 155 

50478 : 120, 197, 024, 101, 054, 133, 163 

50484 : 054 , 165 , 050, 056 , 233 , 012 , 110 

50490 : 041 , 007 , 170, 160, 205 , 177 , 050 

50496 : 047 , 168 , 173 , 022 , 208 , 041 , 211 

50502 :016,208,010, 189,162,196,083 

50508 : 160 , 000 , 017 , 053 , 145 , 053 , 248 

50514 : 096, 152, 106, 106, 106, 106, 242 

50520 : 041, 192, 224, 002, 144, 014, 193 

50526 : 134, 050, 202 , 024, 106, 106, 204 

50532 : 202, 202, 240, 002, 016, 248, 242 

50538 : 166 , 050, 160, 000, 081 , 053 , 104 

50544 : 061, 170, 196, 081, 053, 145, 050 

50550 : 053, 096, 173, 000, 221, 041, 190 

50556 :003, 073, 003, 010, 010, 010, 233 

50562 :010, 141, 161, 196, 173,024,067 

50568 : 208 , 041 , 014, 013 , 161 , 196 , 001 

50574 : 010, 010, 096, 173, 000, 221, 140 

50580 :041, 003, 073, 003, 133, 054, 199 

50586 : 173, 024, 208, 041, 240, 102, 174 

50592 :054, 106, 102,054, 106,024,094 

50598 : 105, 003, 133, 054, 169, 000, 118 

50604 : 133, 053, 169, 012, 160, 231, 162 

50610 : 162, 004, 076, 199, 197, 032, 080 

50616 : 120, 197, 024, 105, 031, 133, 026 

50622 : 054, 169, 000, 133, 053, 160, 247 

50628 :063, 162, 032, 145, 053, 136, 019 

50634 : 192, 255, 208, 249, 198, 054, 078 

50640 : 202, 208, 244, 096, 056, 176, 166 

50646 : 001, 024, 173, 024, 208, 041, 173 

50652 : 240 , 009 , 008 , 141 , 024, 208, 082 

50658 : 173, 017, 208, 009, 032, 141, 038 

50664 :017 , 208, 173 , 022 , 208, 041 , 133 

50670 : 239, 144, 002, 009, 016, 141, 021 

50676 : 022 , 208 , 096 , 173, 024 , 208 , 207 

50682 : 041 , 240, 009, 004, 141 , 024, 197 

50688 : 208, 173, 017, 208, 041, 223, 102 

50694 : 141, 017, 208, 173, 022, 208, 007 

50700 :041, 239, 141, 022, 208, 096, 247 
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64 Paintbox u 

Chris Metcalf i 

One of the most powerful features of the Com- 
modore 64, its high-resolution color graphics, can . . 
be difficult to use. This machine language pro- I — i 
gram makes accessing this capability easy. By us~ 
ing Atari graphics commands, you can plot points, 
set colors, or draw lines with just one statement. 
You can even type in programs originally written 
for Atari graphics modes 7 and 8 on your 64. 



The Commodore 64 is an undeniably powerful computer; its 
capabilities in high-resolution color graphics, for example, sur- 
pass those of the Atari and Apple computers. Nonetheless, 
these capabilities can be difficult to access; the POKEs and 
PEEKs required are slow to calculate and slow to execute. "64 
Paintbox" takes Atari's far more powerful command set and 
makes it available to the Commodore 64 user. 

BASIC programs written for Atari graphics modes 7 and 8 
are easily transferred to the Commodore 64 when this graph- 
ics pack is in place. You can type in the program, line by line, 
adding an exclamation mark (!) before each graphics command 
to let the 64 BASIC interpreter know that it is a special com- 
mand. Once this is done, the program will run on the 64 just 
as it would on an Atari. 

64 Paintbox I I 

To enter Program 1, 64 Paintbox, you first need to load and 

run the MLX program found in Appendix D. MLX makes it 

easy to type in a machine language program like 64 Paintbox | I 

and insures you'll have a working copy the first time. Once v ~^ 

you've run MLX, it asks for two addresses. They are: 

Starting address: 49152 j { 

Ending address: 51197 

Now you can begin typing in Program 1. When you're , , 

through, save it to tape or disk, using the filename 64 L_J 
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^~? PAINTBOX if you want to use the autoload program described 

1 - 1 below. 

Load 64 Paintbox by entering: 

r"| LOAD"filename",8,l (for disk) 

LOAD" 'filename", 1,1 (for tape) 

^ Then type 

i 1 SYS49152:NEW 

to initialize the program and reset the pointers. You're now 
ready to begin typing in any Atari program which uses graph- 
ics mode 0, 7, or 8. 

To simplify loading the program, you may use Program 2, 
"64 Boot," the program following the listing of 64 Paintbox. 
Use "The Automatic Proofreader" program in Appendix C to 
type in this short autoload routine. Save it on the same disk as 
64 Paintbox. (If you're using tape, 64 Boot should precede 64 
Paintbox on the tape. You also need to change line 230 so that 
the 8 is a 1.) Type LOAD"64 BOOT",8 (or just LOAD"64 
BOOT" if you've got a Datassette) and RUN; the program will 
display the command set, load in 64 Paintbox, initialize 64 
Paintbox, and execute a NEW. At that point, you can start 
entering Atari programs. 

No matter which method you use to load 64 Paintbox, the 
Atari graphics commands are easily used. Each command must 
be preceded by an exclamation mark (and a colon, if following 
an IF-THEN statement). The command name can be spelled 
out in full, or abbreviated with a period as on the Atari. How- 
ever, these abbreviations are not expanded when the program 
is listed. The various parameters follow the command name. 
Thus a typical syntax might be: 

|~"j !PLOT 100,100 

to plot a point at 100,100. 
,-_ As with normal BASIC commands, spaces are ignored, 

M whether in the command name or in the parameters. 

Since the 64 Paintbox commands are not standard BASIC, 
,— . the IF-THEN routine will not recognize them as being legal 

) i commands unless they're preceded with a colon. So, if you 

want to plot a point (for example) only if there is no point 
,__ there already, you might have in the program: 

i I ILOCATE 10,15,A : IF A = THEN : 1COLOR 1 : IPLOT 10,15 
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64 Paintbox Commands 

The commands themselves are as follows (abbreviations are 
enclosed within parentheses): 

IGRAPHICS n, (!G.) This command mirrors the Atari 
GRAPHICS command, and takes only one parameter, n, the 
graphics mode. Since only graphics modes 7 and 8 are sup- 
ported, all graphics commands between 1 and 6 are treated as 
if they were 0. As with the Atari, either 7 or 8 may have 16, 
32, or 48 added to it. Plus 16 gives no text window; +32 does 
not clear the graphics screen; and +48 combines the two. 
Without any of these extra numbers (just IGRAPHICS 8, for 
instance), the graphics screen will clear and a four-line text 
window will be set up at the bottom. Regardless of the addi- 
tional numbers, however, the screens will always be reset to 
standard Atari graphics colors. 

Do not try to use tape or disk with the text window en- 
abled. For example, if you enter LOAD and hit RUN/STOP, 
the interrupts will be partially disabled, and you will need to 
reenter the graphics mode (with +32). Attempted disk access 
will return a 7DEVICE NOT PRESENT ERROR. 

The Atari does not allow plotting to the area "under" the 
text window, but 64 Paintbox does, although the graphics re- 
main concealed until you view what you have done with a 
IGRAPHICS M+48 where n is 7 or 8. Furthermore, when 
working with the graphics screen in immediate mode, it does 
not need a text window, as the Atari itself does. 

IPLOT x,y (!P.) This is the PLOT command. X and y are 
offset from the top left corner of the screen, and have a range 
of 0-319 for x and 0-199 for y in graphics mode 8. In 
GRAPHICS 7, the ranges are 0-159 for x and 0-99 for y. The 
command is not set up to work in graphics mode 0. The PLOT j i 

command plots in the current color register (see the I 1 

SETCOLOR and COLOR commands). PLOT also sets the 

starting point for the DRAWTO command. i ( 

JPOSITION x,y (IPO.) The POSITION command sets the U 

starting point for the DRAWTO command without actually 
altering the display. X and y are the same as in the PLOT * i 

command. This command, like PLOT, positions the graphics 1 1 

screen "cursor" (not the actual text cursor), regardless of the 

graphics mode. , , 

IDRAWTO x,y, (I.) This command, DRAWTO, draws a U 

line connecting the old starting point to the specified x,y, us- 
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ing the current color register, and then sets the starting point 
for the next DRAWTO to the specified x,y. The x,y parameters 
have the same range as for PLOT and POSITION. This com- 
mand does not affect the screen in GRAPHICS 0. 

ISETCOLOR r,cl,c2 (!S.) The SETCOLOR command 
changes the specified r to hue (cl) and luminance (c2) in the 
p*] range 0-15. The format is identical to that of the Atari. The 

• various registers set the colors of the border, the background, 

the characters, and the pixels according to the table. Note that 
bit pairs (00, 01, 10, and 11) are used to define single pixels in 
graphics mode 7. The number below is the graphics register r 
(the first parameter). 

SETCOLOR r Values 



GRAPHICS 

n 


GRAPHICS 7 
01 pair pixels 

10 pair pixels 

11 pair pixels 


GRAPHICS 8 


1 Characters 

2 Background 
3 


Characters/pixels 
Background 


4 Border 


Screen color 


Border 



An unfortunate problem with the way the 64 and the 
Atari are configured is that in graphics mode 7 the 64's 
character color in the window is set by SETCOLOR register 2, 
not 1, and that the text window cannot be set to its own color 
but takes that of the rest of the screen. 

Another problem with register 2 in graphics mode 7 is 
that this register is set to the background color (or white on 
old 64s) whenever the screen is cleared. Thus, printing the 
"clearscreen" character when in graphics mode 7 (even with 
no window) must be avoided, as all the 11 pixel pairs will be- 
come background color: in other words, invisible. Further- 
more, any scrolling of the text window in GRAPHICS 7 will 
scroll strange color data into the 11 pixel pairs. This is, how- 
ever, no problem in graphics mode 8. 

You may be interested to know that executing a 
ISETCOLOR 2,cl,c2 in GRAPHICS 7 or a ISETCOLOR l,cl,c2 
in GRAPHICS 8 causes the character color register at 646 to 
be set to colors cl,c2. Thus, previous color codes are dis- 
regarded when a ISETCOLOR or IGRAPHICS command is 
executed (IGRAPHICS calls ISETCOLOR to set up default 
colors). 

The numbers (0-15) that you can use for cl and c2 in 
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SETCOLOR do correspond to various hue and luminance 
settings on the Atari. Take a look at the following chart to see 
what values in 64 Paintbox match Atari's hue and luminance 
values. 

Matching Atari Hue and Luminance to 64 Paintbox 
Color Codes 



Hue 









] 


.uminance 











2 


4 


6 


8 


IP 


12 


14 








11 


11 


11 


12 


12 


15 


1 


1 





12 


7 


7 


7 


7 


1 


1 


2 





2 


8 


8 


8 


8 


15 


15 


3 





9 


2 


2 


2 


2 


8 


8 


4 





9 


2 


2 


2 


2 


8 


8 


5 





6 


6 


6 


4 


4 


4 


4 


6 





6 


6 


6 


4 


4 


4 


4 


7 





6 


6 


6 


14 


14 


14 


14 


8 





6 


6 


6 


14 


14 


14 


14 


9 





6 


14 


14 


14 


14 


3 


3 


10 





6 


14 


14 


5 


5 


13 


13 


11 





6 


14 


14 


5 


5 


13 


13 


12 





5 


5 


5 


5 


5 


13 


13 


13 





5 


5 


5 


13 


13 


7 


7 


14 





8 


8 


8 


5 


5 


13 


13 


15 1 





8 


8 


8 


10 


10 


10 


10 



'.COLOR r (!C.) This command specifies which color reg- 
ister (given above for !S.) is to be used for plotting and line 
drawing. In both graphics modes, has the same effect: It 
erases pixels. In GRAPHICS 8, an odd number for r always 
sets the computer to plot pixels. Registers 1-3 are used in 
GRAPHICS 7, where register 1 sets bit pair 01, 2 sets 10, and 
3 sets 11 (note that this is the SETCOLOR number plus one). 

fLOCATE x,y,v (!L.) The LOCATE command returns in 
floating-point variable v the pixel currently at location x,y and 
sets the starting point for DRAWTO to the LOCATEd pixel. 
Thus, for GRAPHICS 8, either a zero (no pixel) or a one (pixel 
present) is returned. In GRAPHICS 7, a zero also indicates no 
pixel, while one to three correspond to bit pairs 01, 10 and 11. 
Using the LOCATE command with a non-floating-point vari- 
able does nonproductive (though interesting) things, so it's 
best to stick to floating-point variables (that is, no % or $ sym- 
bol after the variable). 
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!FILL x,y (!F.) This command is a more powerful version 
for the Atari XIO fill command. It will fill any area, regardless 
of the shape. It will stop at any on pixel, as well as at the 
edges of the screen. The x and y parameters determine where 
it will start and also set a begin-point for future DRAWTO 
commands. Atari users, remember to draw a line at the left of 
whatever you are going to fill, as this FILL needs a border to 
stop at. However, it's much more flexible than the XIO 
command. 

!TEXT x,y,"string" (!T.) The TEXT command allows text 
to be located starting at any column and row on the GRAPH- 
ICS 8 screen (it will execute on GRAPHICS 7 screens, but pro- 
duces strange multicolored characters). The "string" can be 
characters enclosed in quotes, a string variable, or combina- 
tions of the two. An additional parameter can be passed before 
the "string"; a or 1 in this position determines whether the 
computer will use lower/uppercase text or graphics and 
uppercase. The program is initially set up to use lower- and 
uppercase. No control characters will be printed, but the RVS 
ON and RVS OFF characters have their usual effect of putting 
the characters in-between in reverse video (or inverse video 
for Atari people). Remember that the x and y parameters must 
be specified for each TEXT command, although the 
uppercase/graphics need be set only once to be used repeat- 
edly. The reverse video, however, turns off at the end of the 
string. 

!QUIT (!Q.) This command cuts 64 Paintbox out of the 
command processing loop and removes the check on error- 
message display. The program can be restarted with 
SYS(49152). Calling SYS49152 repeatedly will not, by the 
way, create any difficulty. 

Programmer Notes 

Locations 3 and 4 hold two variables used by the interrupt 
that drives the text window to determine uppercase/graphics 
for the window and hi-res/multicolor for the graphics. To use 
location 3 to control the case in the window, POKE 3 with 21 
for uppercase/graphics and with 23 for lowercase. (And note 
that lowercase is required for entering commands in 
lower/uppercase mode.) Register 4 is used by the program to 
determine pixel plots, LOCATE returns, and so forth, and so 
may be used to flip between hi-res (8) and multicolor (24). 
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Other values generate interesting, and harmless, effects. 
Memory configuration for 64 Paintbox is: 

Location Function 

0400-07E7 Used as the text window (the bottom four lines, at 
least) 

0800-9FFF Unused and completely free for BASIC programs 

A000-BC7F BASIC ROM with RAM underneath 

BC80-BFFF Used for data tables and the FILL routine stacks LJ 

C000-C7FF The 2000 bytes of actual program 

C800-CBFF Used as the color screen for all but 11 pixels in 
GRAPHICS 8 

CC00-CFFF Left free for use by the DOS Wedge or other utility 

E000-FFFF Operating System ROM, with the graphics screen un- 
der it 

Variable storage is: 

Permanent: locations 3-6, 251-254 (interrupt shadows: 

3=53272, 4=53270) 

Temporary: locations 27-42, 107-113, 158-159, 163-164, 

167-170 

Non-zero page storage: locations 670-699 

Abbreviations for 64 Paintbox Commands 

Command Abbreviation 

DRAWTO !. (This takes the place of REM in Atari BASIC.) 

PLOT !P. 

POSITION IPO. 

GRAPHICS !G. 

COLOR !C. 

LOCATE !L. 

FILL !F. 

TEXT !T. 

QUIT !Q. | | 

Demonstrations 

Program 3 is a short program which illustrates how 64 
Paintbox can be used. It draws several figures on the screen 
and then waits for a keypress from you to continue. To see 
this demonstration, make sure 64 Paintbox is in memory (if 
you load it manually, remember to type SYS 49152 and 
NEW), then load Program 3. Run it and watch the effects. 
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Program 1. 64 Paintbox 

For easy entry of this machine language program, be sure to use "The Machine Language 

Editor: MIX," Appendix D. 

49152 :169, 054, 133, 001, 169, 224, 238 

49158 :141, 160, 188, 169, 000, 141, 037 

49164 :128, 188, 170, 189, 128, 188, 235 

49170 : 024, 105, 064, 157, 129, 188, 173 

49176 :189, 160, 188, 105, 001, 157, 056 

49182 : 161 , 188, 232 , 224 , 024, 144, 235 

49188 : 234 , 169 ,001 , 160 , 007 , 153 , 248 

49194 : 199 , 188 , 153 , 192 , 188 , 010 , 204 

49200 : 153, 207, 188, 136, 153, 192, 053 

49206 : 188 , 010 , 136 , 016 , 238 , 169 , 043 

49212 :003, 160, 006, 153, 216, 188, 018 

49218 :010,010, 136, 136,016, 247, 109 

49224 : 169, 254, 160, 007, 153, 224, 015 

49230 : 188, 056, 042, 136, 016, 248, 252 

49236 :169, 252, 160, 007, 153, 231, 032 

49242 : 188, 153, 239, 188, 153, 247, 234 

49248 :188, 056, 042, 056, 042, 136, 104 

49254 : 136 ,016 , 239, 169 , 066 , 141 , 101 

49260 :000 , 003 , 169 , 197 , 141 ,001 , 107 

49266 : 003 , 169 , 1 34 , 141 , 008 , 003 , 060 

49272 .-169,192,141,009,003,169,035 

49278 :008, 133, 004, 169, 055, 133, 116 

49284 : 001 , 096 , 160 , 001 , 177 , 122 , 177 

49290 : 201, 033, 240, 003, 076, 228, 151 

49296 :167, 165, 212, 208, 249, 032, 153 

49302 : 115, 000, 165, 122, 133, 158, 075 

49308 : 165, 123, 133, 159, 162, 255, 129 

49314 : 160, 000, 165, 158, 133, 122, 132 

49320 : 165, 159, 133, 123, 232, 032, 244 

49326 : 115, 000, 041, 127, 221, 242, 152 

49332 : 192, 240, 245, 201, 046, 240, 064 

49338 :026, 009, 128, 221, 242, 192, 236 

49344 : 240 , 019 , 189 , 242 , 192 , 048 , 098 

49350 : 003, 232, 208, 248, 200, 200, 009 

49356 :224, 053, 144, 212, 162, 011, 242 

49362 :076, 066, 197, 185, 040, 193, 199 

49368 :141, 233, 192, 185, 041, 193, 177 

49374 : 141, 234, 192, 032, 115, 000, 168 

49380 :169, 054, 133, 001, 032, 046, 151 

49386 :194, 169,055, 133,001,076,094 

49392 :174, 167, 068, 082, 065, 087, 115 

49398 : 164, 080, 076, 079, 212, 080, 169 

49404 .-079,083,073,084,073,079,211 

49410 :206, 076, 079, 067, 065, 084, 067 

49416 :197, 083 ,069, 084, 067, 079, 075 

49422 : 076, 176, 067, 079, 076, 176, 152 
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49428 :071, 082, 065, 080, 072, 073, 207 

49434 :067, 211, 070, 073, 076, 204, 215 II 

49440 :081, 085, 073, 212, 084, 069, 124 

49446 : 088, 212, 138, 194, 046, 194, 142 

49452 :031, 194, 181, 196, 199, 195, 016 I / 

49458 : 150, 196, 081, 193, 242, 197, 085 LJ 

49464 :060, 193, 252, 198, 169, 228, 132 

49470 : 141 , 008 , 003 ,169,167, 141 , 179 

49476 :009, 003, 169, 139, 141, 000, 017 j I 

49482 : 003, 169, 227, 141, 001, 003, 106 ' — ' 

49488 :096 , 032 , 042 , 197 , 208 , 039 , 182 

49494 : 138, 048, 036, 041, 015, 168, 020 

49500 : 192, 007, 176, 032, 120, 032, 139 

49506 :000, 194, 088, 169, 027, 141, 205 

49512 :017, 208, 169, 023, 141, 024, 174 

49518 : 208, 169 , 008, 141 , 022 , 208 , 098 

49524 : 133, 004, 169, 199, 141, 000, 250 

49530 : 221 , 208 , 102 , 076 , 061 , 197 , 21 9 

49536 :192, 009, 176, 249, 120, 169, 019 

49542 : 059 , 141 , 017 , 208 , 169 , 040 , 000 

49548 : 141 , 024 , 208 , 169 , 196 , 141 , 251 

49554 :000, 221, 169, 008, 192, 007,231 

49560 : 208, 002, 169, 024, 133, 004, 180 

49566 : 141, 022, 208, 169, 023, 133, 086 

49572 :003, 138, 041, 016, 208, 035, 093 

49578 : 169, 127, 141, 013, 220, 169, 241 

49584 : 001 , 141 , 026 , 208 , 141 , 018 , 199 

49590 : 208, 169, 198, 141, 038, 003, 171 

49596 :169, 197, 141, 039, 003, 169, 138 

49602 : 100, 141, 020, 003, 169, 197, 056 

49608 : 141, 021, 003, 208, 003, 032, 096 

49614 : 000, 194, 088, 138, 041, 032, 187 

49620 : 208, 018, 160, 000, 132, 168, 130 

49626 : 169, 000, 133, 170, 162, 224, 052 

49632 :032, 093, 196, 169, 147, 032, 125 

49638 : 210, 255, 169, 004, 133, 158, 135 

49644 : 166, 158, 188, 251, 193, 132, 044 

49650 : 168 , 032 , 008 , 196 , 198 , 158 , 234 

49656 :016, 242, 096, 008, 014, 006, 118 

49662 :009, 000, 169, 000, 141, 026, 087 

49668 :208, 169, 129, 141, 013, 220, 116 I | 

49674 :169, 202, 141, 038, 003, 169, 220 ' — 

49680 : 241 , 141 , 039 , 003 , 169 , 049 , 146 

49686 : 141, 020, 003, 169, 234, 141, 218 - ; 

49692 :021, 003, 096, 032, 228, 196, 092 ]\ 

49698 :160, 002, 185, 167, 002, 153, 191 

49704 : 251, 000, 136, 016, 247, 096, 018 

49710 :032, 031, 194, 032, 024, 197, 044 

49716 :240, 007, 230, 253, 032, 061, 107 

49722 : 194, 198, 253, 032, 066, 194, 227 
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49728 :240, 045, 165, 253 ,074, 074, 147 

49734 : 074, 170, 165, 251, 069, 253, 028 

49740 :041, 248, 069, 253, 024, 125, 068 

49746 s 128 , 188 , 133 , 195 , 189 , 160 , 051 

49752 :188, 101, 252, 133, 196, 165, 099 

49758 : 251, 041, 007, 032, 024, 197, 134 

49764 : 240, 005, 041, 254, 013, 170, 055 

49770 : 002 , 170 , 160 , 000 , 096 , 169 , 191 

49776 :053, 120, 133, 001, 177, 195, 023 

49782 : 160 , 054 , 132 , 001 , 088 , 061 , 102 

49788 :224, 188, 164, 254, 240, 005, 175 

49794 :029, 192, 188, 160, 000, 145, 076 

49800 : 195, 096, 032, 228, 196, 173, 032 

49806 : 167 , 002 , 056 , 229 , 251 , 141 , 220 

49812 : 180 , 002 , 173 , 168 , 002 , 229 , 134 

49818 : 252 , 141 , 181 , 002 , 173 , 169 , 048 

49824 :002, 056, 229, 253, 133, 107, 172 

49830 : 160 , 001 , 162 , 000 , 032 , 024 , 033 

49836 :197, 240, 001, 200, 165, 252, 203 

49842 : 205 , 168 , 002 , 144 , 036 , 208 , 173 

49848 :007, 173, 167, 002, 197, 251, 213 

49854 : 176, 027, 160, 255, 162, 255, 201 

49860 :032, 024, 197, 240, 001, 136, 058 

49866 : 165 , 251 , 056 , 237 , 167 , 002 , 056 

49872 :141, 180, 002, 165, 252, 237, 161 

49878 : 168 , 002 , 141 , 181 , 002 , 132 , 072 

49884 : 111, 134, 112, 160, 001, 032, 002 

49890 :024, 197, 240, 001, 200, 173, 037 

49896 :169, 002, 197, 253, 176, 015, 020 

49902 : 152 , 073 , 255 , 024 , 105 , 001 , 080 

49908 :168 , 165 , 253 ,056 ,237 , 169 ,012 

49914 :002, 133, 107, 132, 167, 169, 192 

49920 :000 , 141 , 182 ,002 , 133 , 163 , 109 

49926 s 174 , 180 , 002 , 172 , 181 , 002 , 205 

49932 :208 , 014 , 228 , 107 , 176 , 010 , 243 

49938 : 166, 107, 032, 037, 195, 133, 176 

49944 : 163 , 076 , 046 , 195 , 032 ,037 , 061 

49950 : 195 , 141 , 182 , 002 , 076 , 046 , 160 

49956 :195, 132, 110, 152, 074, 134, 065 

49962 : 109 , 138 , 106 , 096 , 169 , 000 , 148 

49968 :133, 158, 133, 159, 133, 164, 160 

49974 :141, 183, 002, 032, 049, 194, 143 

49980 : 165, 252, 205, 168 ,002, 208, 036 

49986 : 017 , 165 , 251 , 205 , 167 , 002 , 105 

49992 : 208 , 010 , 165 , 253 , 205 , 169 , 058 

49998 :002, 208, 003, 076, 034, 194, 083 

50004 : 165, 163, 024, 109, 180, 002, 215 

50010 : 133, 163, 165, 164, 109, 181, 237 

50016 :002,133,164,197,110,240,174 

50022 :004, 144, 033, 176, 006, 165, 118 
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50028 : 163, 197, 109, 144, 025, 165 ,143 

50034 :163, 229, 109, 133, 163, 165, 052 I I 

50040 :164, 229, 110, 133, 164, 165, 061 UJ 

50046 : 251 ,024 , 101 , 111 , 133 , 251 . 229 

50052 : 165, 252, 101, 112, 133, 252, 123 

50058 : 173, 182, 002, 024, 101, 107, 215 

50064 : 141, 182, 002, 173, 183, 002, 059 

50070 : 105, 000, 141, 183, 002, 197, 010 

50076 :110, 240, 004, 144, 032, 208, 126 

50082 :007, 173, 182,002,197,109,064 

50088 :144, 023, 173, 182, 002, 229, 153 

50094 : 109 , 141 , 182 , 002 , 173 , 183 , 1 96 

50100 :002 ,229 , 110, 141 , 183 ,002 ,079 

50106 : 165, 253, 024, 101, 167, 133, 005 

50112 :253, 076, 057, 195, 076, 061, 142 

50118 : 197, 032, 042, 197, 208, 248, 098 

50124 : 224, 005, 176, 244, 138, 072, 039 

50130 : 032, 035, 197, 138, 041, 015, 156 

50136 :010, 010, 133, 168, 032, 035, 092 

50142 : 197, 138, 041, 015, 074, 170, 089 

50148 :240, 003, 074, 005, 168, 133, 083 

50154 : 168, 074, 168, 185, 118, 196, 119 

50160 : 176, 004, 074, 074, 074, 074, 204 

50166 : 041 , 015 , 164 , 168 , 192 , 003 , 061 

50172 : 208 , 006 , 224 , 007 , 208 , 002 , 139 

50178 : 169, 001, 133, 168, 104, 170, 235 
50184 : 224 , 003 , 240 ,036,160, 240 , 143 
50190 : 165, 168, 032, 024, 197, 208, 040 
50196 :028, 224, 000, 240, 023, 202, 225 
50202 : 208, 005 , 032 , 082 , 196 , 240 , 021 
50208 :031, 224, 001, 208, 005, 032, 021 
50214 : 045 , 1 96 , 240 , 032 , 202 , 202 , 187 
50220 : 202, 157, 032, 208 ,096, 202, 173 
50226 :048, 012, 202, 048, 019, 240, 107 
50232 :025, 202, 032, 045, 196, 202, 246 
50238 : 240, 237, 160,015, 165, 168,023 
50244 :010, 010, 010, 010, 133, 168, 153 
50250 : 169 , 204, 133 , 170, 162 , 200 , 088 
50256 :208, 011, 162, 216, 169, 220, 042 
50262 : 133, 170, 165, 168, 141 , 134, 229 
50268 :002, 132, 006, 160, 000, 132, 012 
50274 : 195, 134, 196, 177, 195, 037, 008 
50280 : 006, 005, 168, 145, 195, 200, 055 
50286 :208, 245, 232, 228, 170, 208, 121 , . 

50292 .-238,096,011,207,199,113,212 | \ 

50298 :040,143,146,040,153,170,046 
50304 : 102, 068, 102, 068, 102, 238, 040 
50310 : 102, 238, 100, 227, 110, 227, 114 
50316 :110, 093, 085, 093, 085, 215, 053 
50322 : 136 , 093 , 136 , 170 , 032 , 042 , 243 
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50328 :197, 138, 041, 003, 032, 024, 075 
50334 : 197 , 208 , 005 , 041 , 001 , 133 , 231 
50340 : 254, 096, 133, 254, 201, 000, 078 
50346 : 208 , 002 , 169 , 001 , 010 , 010 , 058 
50352 :010, 141, 170, 002, 096, 032, 115 
50358 :031, 194, 032, 234, 198, 032, 135 
50364 : 170 , 198 , 072 , 169 , 055 , 133 , 217 
50370 : 001, 032, 115, 000, 032, 139, 001 
50376 : 176, 032, 133, 177, 104, 168, 222 
50382 : 169, 000, 032, 145, 179, 165, 128 
50388 :098, 041, 127, 133, 098, 160, 101 
50394 : 004, 185, 097, 000, 145, 071, 208 
50400 :136, 016, 248, 096, 032, 042, 026 
50406 : 197 , 032 , 012 , 197 , 152 , 240 , 036 
50412 : 008 , 192 , 002 , 176 ,076 , 224 , 146 
50418 : 064, 176 , 072 , 142 , 167 , 002 , 097 
50424 : 140, 168, 002, 032, 035, 197, 054 
50430 :032, 012, 197, 152, 208, 057, 144 
50436 :224, 200, 176, 053, 142, 169, 200 
50442 :002, 096, 032, 024, 197, 240,089 
50448 :006, 138, 010, 170, 152, 042, 022 
50454 : 168, 096, 133, 170, 165, 004, 246 
50460 s 041, 016, 008, 165, 170, 040, 212 
50466 : 096 , 169 , 055 , 133 , 001 , 032 , 008 
50472 :253, 174, 169, 055, 133, 001, 057 
50478 : 032 , 158, 173 , 032 , 247 , 183 , 103 
50484 : 169, 054, 133, 001, 166, 020, 083 
50490 : 164,021 , 096 , 162 , 246 , 154,133 
50496 : 162, 014, 224, 128, 176, 027, 027 
50502 : 134, 163,072, 169,055, 133,028 
50508 :001, 174, 021, 003, 224, 197, 184 
50514 : 240, 010, 169, 032, 044, 017, 082 
50520 :208, 240, 003, 032, 096, 193, 092 
50526 : 104, 166, 163, 076, 139, 227, 201 
50532 sl73,025,208,141,025,208,112 
50538 : 169, 027, 141, 017, 208, 169, 069 
50544 : 199, 141, 000, 221, 169, 023, 097 
50550 : 141, 024, 208, 169, 008, 141, 041 
50556 8022 , 208 , 162 , 000 , 173 , 018 , 195 
50562 : 208, 048, 022, 162, 218, 169, 189 
50568 :196, 141, 000, 221, 169, 059, 154 
50574 : 141 , 017 , 208 , 169 , 040, 141 , 090 
50580 : 024 , 208 , 169 , 008 , 141 ,022 , 208 
50586 : 208 , 142 , 018, 208 , 173 , 013 , 148 
50592 :220 ,041 , 001 , 240 , 003 ,076 , 229 
50598 : 049, 234, 056, 032, 240, 255, 008 
50604 : 224, 021, 176, 006, 162, 021, 014 
50610 :024, 032, 240, 255, 165, 003, 129 
50616 :141, 117, 197, 165, 004, 141, 181 
50622 : 151, 197, 104, 168, 104, 170, 060 
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50628 :104, 064, 072, 041, 127, 201, 037 , , 

50634 : 032, 144,004, 104,076,202, 252 I ' 

50640 : 241, 104, 032, 202, 241, 008, 012 

50646 : 133, 170, 134, 158, 132, 159, 076 

50652 :056, 032, 240, 255, 224, 021, 024 J ! 

50658 :176, 006, 162, 021, 024, 032, 135 ' — ' 

50664 : 240, 255, 166, 158, 164, 159, 094 

50670 :165,170 t 040, 096,032, 031, 004 , . 

50676 :194, 032, 234, 198, 169, 000, 047 ' I 

50682 : 141 , 174 , 002 , 169 , 000 , 141 , 109 

50688 :176, 002, 141, 175, 002, 165, 149 

50694 : 252, 208, 004, 165, 251, 240, 102 

50700 :033, 165, 251, 056, 237, 177, 163 

50706 :002, 133,251, 165,252,233,030 

50712 :000, 133, 252, 032, 170, 198, 041 

50718 : 240, 229, 165,251,024,109,024 

50724 : 177, 002, 133, 251, 165, 252, 248 

50730 : 105, 000, 133, 252, 230, 253, 247 

50736 :032, 170, 198, 208, 011, 173, 072 

50742 : 176,002,208,011,032,212,183 

50748 :198, 169, 001, 044, 169, 000, 129 

50754 : 141, 176, 002, 198, 253, 198, 010 

50760 : 253, 032, 170,198,208,011,176 

50766 : 173, 175, 002, 208, 011, 032, 167 

50772 :212, 198, 169, 001, 044, 169, 109 

50778 : 000, 141, 175,002, 230,253, 123 

50784 :032, 061, 194, 165, 251, 024, 055 

50790 : 109, 177, 002, 133, 251, 165, 171 

50796 :252, 105, 000, 133, 252, 165, 247 

50802 : 197 , 201 , 063 , 240 , 048 , 165 , 004 

50808 :252, 240, 006, 165, 251, 201, 211 

50814 : 064, 176, 005, 032, 170, 198, 003 

50820 : 240 , 168 , 172 , 174 , 002 , 240 , 104 

50826 :028, 136, 185, 000, 189, 133, 041 

50832 :253, 185, 000, 190, 133, 252, 133 

50838 : 185, 000, 191, 133, 251, 140, 026 

50844 :174, 002, 165, 253, 201, 200, 127 j I 

50850 :176, 226, 076, 253, 197, 076, 142 ' — ' 

50856 :034; 194, 032, 066, 194, 134, 054 

50862 :170, 189, 224, 188, 073, 255, 249 . , 

50868 :162, 053, 120, 134, 001, 049, 187 ji 

50874 : 195, 230, 001, 088, 072, 165, 169 "**~ 

50880 : 170,041,007,170,104,236,152 

50886 : 178, 002, 176, 007, 074, 232, 099 

50892 : 236 , 178 , 002 , 144 , 249 , 201 , 190 

50898 : 000 , 096 , 172 , 174 , 002 , 165 , 051 

50904 :251, 153, 000, 191, 165, 252, 204 

50910 :153, 000, 190, 165, 253, 153, 112 j | 

50916 s000, 189, 238, 174, 002, 096, 159 

50922 : 162,001, 160,007,032,024, 108 
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50928 
50934 
50940 
50946 
50952 
50958 
50964 
50970 
50976 
50982 
50988 
50994 
51000 
51006 
51012 
51018 
51024 
51030 
51036 
51042 
51048 
51054 
51060 
51066 
51072 
51078 
51084 
51090 
51096 
51102 
51108 
51114 
51120 
51126 
51132 
51138 
51144 
51150 
51156 
51162 
51168 
51174 
51180 
51186 
51192 



197 
177 
032 
040 
035 
144 
197 
163 
024 
:165 
:196 
:115 
:013 
:165 
:160 
:247 
:199 
:208 
:002 
:136 
:023 
:233 
:240 
:002 
:141 
:159 
:032 
:038 
:038 
:024 
:007 
:133 
:136 
:165 
:195 
:196 
:173 
:180 
:008 
:141 
:008 
:141 
:201 
:128 
:064 



,240, 
,002, 
,042, 
,176, 
,197, 
,005, 
,169, 
,010, 
,125, 
,196, 
,169, 
,000, 
,048, 
,020, 
,199, 
,044, 
,076, 
,015, 
,177, 
,016, 
,133, 
,003, 
,089, 
,173, 
,160, 
,172, 
,208, 
,159, 
,159, 
,105, 
,162, 
,001, 
,016, 
,195, 
,144, 
,240, 
,180, 
,096, 
,173, 
,160, 
,173, 
,160, 
,032, 
,041, 
,056, 



002,232,136 
140,178,002 
197,208,015 
011,134,163 
208,004,224 
162,014,076 
000,133,196 
010,010,038 
128,188,133 
125,160,188 
055,133,001 
032,158,173 
025,032,247 
041,001,008 
040,208,003 
009,008,141 
049,199,165 
032,133,177 
071,153,097 
248,048,011 
022,165,023 
133,023,165 
169,000,141 
160,199,041 
199,169,000 
180,002,177 
199,144,052 
010,038,159 
133,158,165 
216,133,159 
055,169,051 
177,158,145 
249,134,001 
024,105,008 
006,230,196 
010,238,180 
002,197,097 
170,201,018 
160,199,009 
199,201,146 
160,199,041 
199,138,041 
144,010,138 
191,144,002 
096,013,013 



,142,165 
,096,073 
,224,202 
,032,046 
,025,189 
,066,225 
,165,112 
,196,197 
,195,057 
,133,237 
,032,118 
,165,181 
,183,092 
,173,214 
,041,207 
,160,171 
,098,098 
,160,043 
,000,080 
,165,210 
,056,014 
,097,252 
,180,167 
,251,180 
,133,162 
,098,154 
,010,017 
,010,048 
,159,196 
,160,187 
,120,216 
,195,211 
,088,032 
,133,044 
,165,100 
,002,036 
,208,033 
,208,055 
,004,253 
,208,249 
,251,032 
,127,012 
,201,194 
,233,213 
,013,247 
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Program 2. 64 Boot i i 

For mistake-proof program entry, be sure to use 'The Automatic Proofreader," Appendix C, I I 

when you type in the next two programs. 

100 IFA=1THENSYS49152:NEW s rem 38 

110 PRINT:PRINT"{CLR}{D0WN}{15 RIGHT}64 PAINTBOX" j j 

:rem 80 ' — ' 
130 PRINT"{DOWN} {YEL} !GRAPHICSfc73 SELECTS GRAPHIC 

S 0,7,8" :rem 123 , ( 

140 PRINT" {YEL}!COLORi7i SELECTS COLOR REGISTER" 1 | 

:rem 53 
150 PRINT" {YEL}lSETCOLORg73 SETS THE REGISTER'S C 

OLOR" :rem 169 

160 PRINT" {YEL}lPOSITIONg7i PLACES THE GRAPHICS C 

URSOR" :rem 254 

170 PRINT" {YEL}lPLOTg73 PLOTS THE POINT SET BY CO 

LOR" :rem 4 

180 PRINT" {YEL}1DRAWT0§73 DRAWS TO THE SPECIFIED 

{SPACE} POINT" :rem 175 

190 PRINT" { YEL}! LOCATE! 7 3 PUTS THE POINT IN THE V 

ARIABLE" :rem 241 

195 PRINT" {YEL}lTEXT§7i PUTS TEXT ON THE SCREEN" 

:rem 221 
200 PRINT" {YEL}lQUITg7§ TURNS OFF 64 PAINTBOX" 

:rem 69 
210 PRINT" {DOWN} { RIGHT }ALL COMMANDS CAN BE ABBREVI 

ATED WITH": PRINT" A PERIOD (.)" :rem 249 
220 PRINT" {DOWN} { RIGHT} LOADING 64 PAINTBOX FROM 49 

152 TO 51200" :rem 52 

230 A=l:LOAD"64 PAINTBOX" ,8,1 :rem 114 

Program 3. 64 Paintbox Demonstrations 

100 : :rem 203 

110 REM DEMOS FOR 64 PAINTBOX : rem 164 

130 : :rem 206 

140 GOSUB700 :rem 172 

150 DATA "{WHT} SIMPLE FIGURE NUMBER 1" :rem 127 
160 DATA "HIT ANY KEY AFTER THIS DESIGN, AND ALL" 

:rem 231 
170 DATA "FOLLOWING DESIGNS, ARE COMPLETE" : rem 17 
180 DATA "TO GO ON TO THE NEXT ONE.", : rem 204 I j 
190 FORI=0TO270STEP5:1P.I,100+SIN(I/50)*100:1.319- 
I,100+COS(I/25)*50:NEXT :rem 98 

200 GETA$:IFA$=""THEN200 :rem 71 

210 GOSUB700 :rem 170 

220 DATA "THIS FIGURE IS DRAWN IN HI-RES THEN" 

:rem 114 
230 DATA "REDISPLAYED IN MULTICOLOR FOR AN": rem 64 
240 DATA "INTERESTING EFFECT", :rem 25 
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250 PORI=0TO309STEP2 : IP . I , 100+SIN( 1/50 ) *100 : 1 . 1+10 

,100+SIN(I/50)*50:NEXT : rem 36 

260 GOSUB640:GOSUB700 :rem 3 

270 DATA "HI-RES/MULTICOLOR FIGURE NUMBER 2", 

:rem 193 
280 FORI=0TO309STEP2 : JP . I , 100+COS ( 1/50 ) *100 : I . 1+10 

,100+SIN(l/50)*50sNEXT :rem 34 

290 GOSUB640:GOSUB700 srem 6 

300 DATA "SIMPLE FIGURE NUMBER 2", : rem 164 
310 FORI=0TO319STEP2 : 1 P . I , 100+SIN( l/50 ) *100 s I . 319- 

I,100+COS(I/50)*50:NEXT :rem 91 

330 GETA$:IFA$=""THEN330 srem 79 

340 GOSUB700 :rem 174 

350 DATA "SIMPLE FIGURE NUMBER 3", :rem 170 
390 FORI=0TO310STEP5 : I P . I , 100+SIN (1/50 ) *100 : I . 319- 

I,100+SIN(l/50)*50sNEXT :rem 98 

420 GETA$:IFA$=""THEN420 :rem 79 

430 GOSUB 700 srem 174 

440 DATA "THE NEXT IMAGE IS A CIRCLE", :rem 52 
460 FORI =0TO2*T.-T/100STEP£/100: IP. 160, 100:1. 160+CO 

S(I)*100,100-SIN(I)*80 :rem 206 

470 NEXT:C=0:I=2 :rem 182 

480 1 S . 1 , C , I : 1=1+1 : IFI=16THENI=2 : C=C+1 : IFC=16THENC 

=0 :rem 61 

490 GETA$:IFA$=""THEN480 :rem 92 

500 DATA "THIS IS A MULTICOLOR IMAGE" : rem 117 
510 DATA "CREATED WITH LINE AND FILL ROUTINES", 

:rem 239 
520 JG.7+16:lC.lsN=32:FORI=0TO2*tSTEP.t/N :rem 170 
530 lC.l:lP.80,50sl.80+COS(I)*40,50-SIN(I)*32sNEXT 

srem 160 
540 N=16 : 1 C. 2 :FORI=0TO2*tSTEPt/N:X=80+COS ( I ) *50 :Y= 

50-SIN(I)*40 :rem 250 

550 1 P .X, Y: I . 80+COS ( I+t/N) *50 , 50-SIN ( I+t/N) *40 :NEX 

T srem 215 

560 IC. 3: IP. 0,0: J. 159, 0s 1.159,99 si. 0,99 si. 0,0 

srem 123 
590 GETA$sIFA$=""THEN590 srem 95 

620 !G.7slG.0sEND srem 118 

630 s srem 211 

640 GETA$sIFA$=""THEN640 srem 87 

650 1G. 7+32+165 IS. 0,2, 8s IS. 1,5, 8: IS. 2, 0,14 srem 37 
660 GETASsIFA$=""THEN660 srem 91 

670 GOTO750 srem 114 

690 s srem 217 

700 PRINT" {CLR} {DOWN} M slG.0sK=0 srem 254 

710 READN$:IFN$=""THEN730 srem 171 
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720 PRINTTAB(20-LEN(N$)/2)N$ m {DOWN} ,, :K=K+1:GOTO710 

:rem 27 
730 PRINTTAB(17)"g6 @1" :PRINTTAB(17) " {RVS} WAIT 

{UP}" :rem 70 

740 PORI=1TO350*K:GETA$:IFA$=""THENNEXT :rem 133 
750 1G.8+16:IS.2,0,0:1S.1,RND(1)*15,10:IC.1:RETURN 

srem 149 
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n Three Handy 

n Graphics Utilities for 

n the Commodore 64 

Colorfill, Underline, 
and Realtime Clock 

Christopher J. Newman 

These three utilities are short, yet you'll find many 
uses for them in your own programs. Change 
screen color with a single SYS, convert the cursor 
to an underline instead of a blinking square, and 
display a realtime clock on the screen with these 
routines. Best of all, even though two are machine 
language, they're placed into memory by a 
BASIC loader, so you don't need to know any' 
thing about ML to use them. 



Colorful 

Program 1 fills color RAM with a single color. It has several 
_ applications. For example, when it's used with a program that 

I I POKEs characters to the screen, the color POKE is no longer 

necessary. Thus programming space can be saved if you're us- 

i ing numerous screen POKEs. This feature is also useful when 

l_j converting PET programs without the emulator: You no longer 

need to insert a color POKE for every screen POKE. 
,__, Using "Colorfill," you can change the color of all the 

) \ characters on the screen instantly with one SYS command. In 

the program listing, line 40 POKEs random colors into location 
_ 838 (SL+10). If you want just one color, replace line 40 with 

H] something like: 

40 POKE SL+10, 1:SYS"SL 

'I 243 
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and all of color RAM fills with white. Any text you see on the 

screen instantly turns white. Of course, you can change the [ j 

value POKEd into SL+10 to see other colors. 

The machine language program can be relocated by 
changing the value of SL in line 30 to a new starting location. 
The machine language portion takes 25 bytes. 



I ( 



Underline { j 

Program 2 replaces the normal blinking square cursor with an 
underline, for those who prefer this kind of cursor. All the re- 
verse video characters are changed to underlined, normal 
characters. 

It's possible to switch between the standard Commodore 
character set and the underline set. Once the program has 
been run, the reverse-video characters can be accessed with 
POKE 53272,21. You can switch back to underline mode with 
POKE 53272,31. 

The underlined character set is stored in memory loca- 
tions 14336-16383. To relocate the character set to the bottom 
of memory, first run this one-line program: 

10 POKE 44, 16: POKE 4096, 0:CLR: NEW 

Then load the underline program, LIST it, delete the *7 
characters in line 5, and change POKE 53272,31 in line 10 to 
POKE 53272,19. 

Pressing the RUN/STOP-RESTORE keys will disable the 
underline cursor function. To reenable it, you'll have to rerun 
the program. 

Realtime Clock 

Program 3 is a modification of the idea first demonstrated in 
the article "Realtime Clock On Your PET Screen," which ap- i j 
peared in the January 1982 issue of COMPUTE! magazine. The L - J 
clock will appear in white, showing the time in tenths of sec- 
onds through hours. The color can be changed by changing j > 
the two items of data in the last two DATA statements with ' — ! 
the value 1 (the color code for white) to your desired color 
code. \ | 
If you accidentally hit RUN/STOP-RESTORE, the clock ■— • 
disappears. You can put it back on the screen by typing 

POKE 788,74:POKE 789,3 [_j 
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However, it will have lost time. 

The program will not work with the tape cassette, as it 
occupies the cassette buffer. When you access the disk drive, 
the clock will briefly stop. The pause lasts only a few tenths of 
a second. 

Program 1. Colorfill 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C, 
as you enter the following three programs. 

10 DATA169, 216, 133, 114, 169, 0,133, 113, 168, 169, 14, 14 
5,113,200,208,251,230,114 :rem 139 

20 DATA165,114,201,220,208,241,96, :rem 169 

30 SL=8 28 : RESTORE : FORI=SLTOSL+ 24 : READA : POKEI , A : NEX 
T :rem 135 

40 POKESL+10,RND(1)*16:SYSSL:GOTO40 :rem 144 
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Program 2. Underline 

5 Q=2048*7:R=Q+1024:S=53248 :rem 206 

6 FORI=0TO255 : POKE1024+I , I :POKE55296+I , 14 tNEXT 

:rera 29 
10 POKE53272 , 31 :P0KE56334 , PEEK( 56334) AND254 : POKEI , 

PEEK(1)AND251 :rem 126 

20 FORI =0TO1023tPOKEQ+I, PEEK (S+I) :POKER+I ,PEEK(S+I 

):NEXT: POKEI, PEEK(1)0R4 :rem 82 

30 POKE56334,PEEK(56334)ORl : rem 16 

40 FORI=7TO1023STEP8:POKER+I,255:NEXT trem 85 



Program 3. Realtime Clock 

10 FORA=1TO108 

20 READB 

30 POKE825+A,B 

40 NEXT 

100 PRINT"{CLR}{6 SPACES JHHMMSS" 

110 INPUT "TIME"; A? 

120 TI$=A$ 

130 F0RA=1T06 

140 D=VAL(MID$(A$,A,1)) 

150 P0KE832+A,D 

160 NEXT 

200 POKE788,74:POKE789,3 

250 NEW 

1000 DATA10, 10, 6, 10, 6, 10, 10, 0,0, 0,0,0 

5,162 
1003 DATA105 , 5 , 141 , 73 , 3 , 169 , 86 , 141 , 20 

1,72,3,205,73,3,48 



:rem 51 
:rem 192 

:rem 11 
trem 163 
trem 197 

t rem 5 3 

trem 246 

trem 3 

trem 200 

trem 62 
trem 214 
trem 111 
trem 129 
,0,0,87,90,16 
trem 117 
,3,165,162,14 

trem 52 
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1006 DATA38, 105, 5, 237, 73, 3, 109, 72, 3, 141,73, 3, 238, 7 . 

1,3,162,7,189 :rem 79 J | 

1009 DATA64, 3, 221, 57, 3, 48, 14, 169, 0,157, 64, 3, 202, 24 

0,6,254,64,3 :rem 20 

1012 DATA76 , 1 12 , 3 , 162 , 7 , 189 , 64 , 3 , 105 , 48 , 1 57 , 31 , 4 , 1 

69,1,157,31,216,202,208,240 :rem 247 

1015 DATA169 , 58 , 141 , 31 , 4 , 169 , 1 , 141 , 31 , 216 , 76 , 49 , 23 

4,0,0,0,0 :rem 115 
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Programming 

Without 

the Keyboard 

Joystick Enhanced 
Programming 

George Leotti 

Using a computer's keyboard can be difficult, 
even impossible for some. Physically handicapped 
people who want to program on a computer may 
not be able to use the keyboard. But with "Joystick 
Enhanced Programming" QEP), COMPUTE! 
Publications' s first program dedicated to handi- 
capped computer users, the joystick can completely 
replace the keyboard. 

This program isn't only for the handicapped, 
however. Young children who are not comfortable 
with using the keyboard may find using the joy- 
stick easier and less intimidating. 



Being physically disabled myself, I know what it's like to be 

j 1 denied access to something I want or need. So when my 

friend Marc said he couldn't type for longer than 15 minutes 
before fatigue became a problem, "Joystick Enhanced 

/ 1 Programming" (JEP) came to mind. 

Marc has MD (muscular dystrophy), which causes his 
rapid fatigue. I believe JEP can be useful to other people who 

; 1 thought they couldn't use a computer, because of the key- 
board limitations or physical disabilities. 
I dedicate JEP to Marc Goldberg. 

; i What is JEP? To put it simply, JEP is a machine language 
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program that allows you to program in BASIC using a joystick 
plugged into port 2. j j 

Only Once at the Keyboard 

Of course, to enter JEP, someone will have to type it in using j j 

the keyboard. That may sound like a Catch-22 (you want to 
use something besides the keyboard, but you have to use the 
keyboard to be able to do that), but there's no way around it. I I 

To make it easier to type in JEP, we've provided "The u_ " 

Machine Language Editor: MIX" Make sure you read Appen- 
dix D and have a copy of MLX on tape or disk before you be- 
gin entering JEP. (Again, someone will have to enter MLX 
using the keyboard, since you have to have it before you start 
typing in JEP.) 

After you've loaded and run MLX, it will ask for two ad- 
dresses. Those are: 

Starting address: 49152 
Ending address: 51413 

Type in Program 1, JEP. Then, using MLX's Save option, save 
the program to tape or disk. To load JEP, you have to use the 
following format: 

LOAD" filename", 8,1 (for disk) 
LOAD" filename", 1,1 (for tape) 

Once JEP is loaded, type SYS 49152 and then NEW. The pro- 
gram is instantly available for your use. 

Automatic Loading 

Another way to load JEP would be to create an autoboot pro- 
gram for it. This is simple if you use the program in 
"Autoload," another article in this book. After you've entered 
and saved JEP, just follow the directions in Autoload and you j ; 

can easily create a routine which automatically loads JEP. The ' — ' 

boot program will even do the SYS for you. 

I ' 

The Menu — ' 

When JEP is active, the top ten lines of your screen are re- 
served for a menu from which you make selections to build a | | 
BASIC program. ' * — > 

There are two cursors on the screen when the program is 
active — the normal flashing cursor of the BASIC editor and a 
nonflashing menu cursor. To prevent confusion and keep a 



250 



U 

u 



H 

n 
n 
n 



n 

n 
n 
n 



Utilities 5 



clean menu display, neither cursor is permitted to cross screen 
line ten/Therefore, if you try to home the editor cursor, it will 
jump to the first space on line eleven. 

To make a selection, move the menu cursor by pushing 
the joystick in the appropriate direction until it's over the de- 
sired character, keyword, or other symbol; then press the fire 
button. This prints your selection at the editor cursor location. 

The menu is dynamic in that it changes in response to in- 
put from the joystick. What follows is a line-by-line break- 
down of the dynamic menu: 

ASCII codes. The top line contains the characters with 
ASCII codes from 33 to 95. This is where the dynamic part 
comes in. There are 63 characters with only 40 columns to dis- 
play them. But by moving the menu cursor off the left or right 
end of this line, you'll cause every character to scroll, or move, 
one position in the opposite direction. 

An example: When you run JEP, the menu cursor is over 
ASCII character 33 (the exclamation point), in the upper left- 
hand corner of the screen. By pushing the joystick left once, all 
the characters on the top line will move one position to the 
right. The character under the menu cursor is now ASCII 95 
(left arrow). If you push the stick left (or right if you're on that 
end of the line), you'll get a continuous scroll. 

BASIC keywords. The second line contains every BASIC 
keyword in the 64's vocabulary (listed alphabetically), includ- 
ing the left parenthesis on words that need it: ASC(, SQR(, 
LEFT$(, and so on. The number sign is included in keywords 
that need it— PRINT*, GET#, and INPUT*. The reserved 
variables ST, TI, and TI$ are represented with their full spell- 
ing (TIME$, for example). 

The second line scrolls just like the top line. Since there 
are more characters on this line (because of the number of 
BASIC keywords), it can take some time to scroll through the 
entire list. To speed things up, once the scroll begins, hold 
down the fire button. The words will zip by, but you can still 
pick out some letters to give you an idea of where you are. 

If you release the stick before the button, during a speed 
scroll, you may get something printed that you didn't want. 
That brings us to the next line. 

Special keys. The third line is for the special keys on the 
64's keyboard. The keys are: RETURN; SPACE; cursor con- 
trols, including up, down, left, right; CLR; HOME; INST; and 
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DEL. These will work exactly like their keyboard equivalents, , , 

with the exception that you can't move the editor cursor above L_j 

the eleventh line. 

Function keys. The fourth line contains the function , , 

keys on the right side of the 64 keyboard. On this same line 1 [ 

you'll find the letters BBC. The first B is for border, the second 

for background, and the C for character. By putting the menu , , 

cursor on any of these letters and pushing the fire button, you I j 

may change the color combinations of your entire screen. 

Also on line four are the abbreviations COMDRE and 
CTRL. These represent the Commodore and control keys. By 
selecting either COMDRE or CTRL, then moving the menu 
cursor to the top line and selecting a character, it will be 
printed as if you'd pressed the Commodore or control key 
first. Use these for one keystroke only. 

SHIFT and AUTO. Line five displays SHIFT, LOCK, 
COMDRE, CTRL, AUTO, and finally OFF. SHIFT works like 
COMDRE and CTRL on line four except that a shifted charac- 
ter is printed. 

LOCK, COMDRE, and CTRL, when selected from this 
line, lock in the SHIFT, Commodore, and control keys respec- 
tively. When you select one of these words (LOCK, for in- 
stance), it will be reversed as a reminder that function is 
enabled. 

A program like JEP would be much less worthwhile with- 
out an automatic line-numbering function. AUTO gives you 
this feature. 

Move the menu cursor over the word AUTO. Press the 
fire button, then enter a line number using the characters on 
the top line. That's the last line number you will have to en- 
ter. When you terminate the line with RETURN (not to be . 

confused with RETURN from subroutine) from the third menu J [ 

line, the next line number will be automatically printed for 

you. The line numbers will increment by 10. . 

AUTO may also be used as a multiline delete. If you want | ) 

to delete a range of lines, say 150 to 300, enter the number 

150 using the top line. Then move the menu cursor over the , 

word RETURN on the third line, and hold down the fire but- j J 

ton until line number 310 is printed. Don't RETURN again, or 

line 310 will be erased as well. Delete the number 310 using , , 

DEL (third line) and you're safe. I J 

To turn off AUTO, move the menu cursor over AUTO 
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; — | and press the fire button. The letters will revert to normal 

' ...' characters, and the AUTO routine will be disengaged. 

The final word on line five is OFF. Don't confuse this 
with turning off AUTO numbers or your computer. It will, 
when selected, disengage or turn off JEP. If OFF is selected by 
accident, you may restart JEP by typing SYS 49152, followed 

r-i by RETURN from the keyboard. 

' ^ Turning JEP off and on will not affect your BASIC pro- 

gram. In fact, it's similar to pushing the RUN/STOP and RE- 
STORE keys. 

You may use the RUN/STOP and RESTORE keys to turn 
off JEP. However, you will have to save the BASIC program 
you were working on, reload JEP, and type SYS 49152:NEW if 
you want to use it again. The better way is to use OFF to keep 
JEP ready to run again. 

System Defaults 

I have the speed of the menu cursor set to where it's comfort- 
able for Marc. Things may move too fast or too slowly for you, 
but there are ways to speed things up or slow them down. 

Once you have JEP entered, save it to tape or disk. After 
you have it saved, run it by typing SYS 49152. Now you may 
maneuver the menu cursor with your joystick and select dif- 
ferent things from the menu to get a feel for the way JEP re- 
sponds. Here are three locations that you can POKE to change 
speeds: 

POKE 49292,2: This is a general location but can be used 
to change left/right speeds. 

POKE 49531,6: This controls up/down speed. 
POKE 49603,4: This is for button response. 

jj The numbers POKEd into these locations are the present 

settings. The lower the number, the faster the response; the 
higher the number, the slower the response. Note: Since these 

j[ locations count down to 0, 1 is the fastest setting and is the 

slowest. 

Location 49292 will slow down or speed up all responses. 

, | Set this first to a comfortable speed for left/right movement. 

Then set the other locations. 

When you've got everything at a comfortable speed, turn 

|J JEP OFF and save it by entering SAVE"filename",8,l for disk 

or SAVE"filename",l,l for tape. Now you won't have to set 
things up each time. 
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To change the size of the increment of the AUTO line , , 

numbers, you can POKE a different increment into location I i 

50415, which now contains 10. Numbers from 1 to 255 are 
allowed. , 

During the process of writing a program, it's often de- I I 

sirable to run the program to look for errors. JEP will remain 

active when a BASIC program is run, but the menu will not be , , 

displayed. Even after the test run, the menu won't be dis- \ 1 

played unless a scroll occurred upon exiting your program. 
This is to allow you to read whatever may be printed on the 
screen. 

There are several ways to get the menu back after a 
BASIC program runs. First, if you used the menu to select 
RUN, then RETURN, hold down the fire button until the 
menu appears. You could also use the keyboard RETURN key, 
cursor down, clear screen, and even cursor up; or the DEL key 
to restore the menu. 

If you would like to keep the menu on screen during a 
RUN to use for input, instead of the keyboard, you must use 
the following POKEs exactly: 

POKE 56333,127:POKE 49275,234:POKE 49276,234:POKE 56333,129 

If you make these changes in direct mode (no line num- 
bers), enter all four POKEs on the same line. Why? Because 
the first POKE disables interrupts, which kills the keyboard 
until the last POKE. The two POKEs in the middle put the 
machine language instruction NOP (No OPeration) in place of 
a branch instruction (BEQ) and its offset. 

To return JEP to normal, enter the following on one line: 

POKE 56333,127:POKE 49275,240:POKE 49276,89:POKE 56333,129 

Automatic Proofreader for JEP I — , 
One of the most useful programs from COMPUTE! Publica- 
tions, "The Automatic Proofreader," virtually insures error- , ( 

free programs when you type them in. All the Commodore 64 J > 

programs published in COMPUTE! magazine, COMPUTE'S Ga- 
zette, and COMPUTE! books use the Proofreader to help you . s 
type those programs in. I — \ 

You can use the Proofreader, or at least a variation of it, 

when you use JEP. "JEProof," this modified version of the . , 

Proofreader, is included here as Program 2. Just like Program I 1 

1, it's in MLX format. To enter it, make sure you use the MLX 
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r—j program from Appendix D. You need to provide two ad- 

'---' dresses, which are: 

Starting address: 51500 
f— 1 Ending address: 51667 

Type in JEProof and save it to tape or disk. 

If you want to use JEProof with JEP, this is the process 
}\ you need to follow. 

• LOAD"JEP",8,l and press RETURN 

• Type NEW 

• LOAD"JEPROOF",8,l and press RETURN 

• Type NEW 

• SYS 49152 and press RETURN 

Now you'll see the usual JEP menu at the top of the screen. 
JEP is active and you can use the joystick to enter: 

• SYS 51400 and press (or enter) RETURN 

JEProof is enabled and ready to use. To see it at work, enter a 
simple BASIC line, such as 10 REM and then RETURN. You'll 
see a number in reverse video (in this case it should be 069) 
just to the right of the OFF in the fifth menu line. That's the 
Proofreader's checksum number. If you look at the BASIC pro- 
grams in this book, you'll see :rem xx (where xx is a number) 
at the end of each line. That's the number you should see in 
reverse video if you entered the line correctly. (For more de- 
tailed information about the Proofreader — JEProof works in 
much the same way — read Appendix C.) 

There's only one problem with JEProof. If you enter a line 
at the very bottom of the screen, the reverse video number 
will appear for just a brief moment, not long enough to really 
p^ see. For this reason, when you're using JEProof, make sure not 

) i to enter BASIC lines on the very bottom screen line. You can get 

around this by scrolling the BASIC lines up the screen using 

nthe cursor down (D in menu line 3), then moving the cursor 
back up to resume typing. It's a bit of a bother, but you 
should get used to it rather quickly. 

1 i Disadvantages of JEP 

You'll find difficulty when you try to use other machine lan- 
_^ guage enhancements with JEP in operation. You won't be able 

I I to use any program, whether it's BASIC or machine language, 

which uses memory locations 49152 through 51413. 
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The DOS wedge supplied with the 1541 does work. « ( 

Sorry, but JEP won't work with Simon's BASIC. Lj 

One other thing to be aware of. If you use a printer at- 
tached to the user port, deactivate JEP before using it. JEP uses , , 
the locations that are reserved for the RS-232 I/O buffers. I I 

I already know this program is useful to one person. I 

hope this program will also extend your programming time, . , 

providing you with many hours of fun (or even frustration) I 1 

that are part of programming. 

Program 1. Joystick Enhanced Programming (JEP) 

For easy entry of the two machine language programs which follow, be sure to use "The 
Machine Language Editor: MIX," Appendix D. 

49152 :169, 147, 032, 210, 255, 169, 214 

49158 :000,133,172,133,173,133,238 

49164 : 252, 133, 248, 133, 247, 133, 134 

49170 : 249, 169, 004, 133, 250, 133, 188 

49176 : 251, 141, 168, 002, 169, 006, 249 

49182 : 141 , 167 , 002 , 173 , 048 , 003 , 052 

49188 :141, 112, 197, 173, 049, 003, 199 

49194 : 141 , 113 , 197 , 169 , 102 , 141 , 1 37 

49200 : 048, 003, 169, 197, 141, 049, 143 

49206 :003, 173, 050, 003, 141, 134, 046 

49212 :197, 173, 051, 003, 141, 135, 248 

49218 : 197, 169, 124, 141, 050, 003, 238 

49224 :169, 197, 141, 051, 003, 173, 038 

49230 : 164, 197, 133, 253, 173, 165, 139 

49236 :197, 133, 254, 032, 198, 195, 069 

49242 : 120, 173, 020, 003, 072, 173, 139 

49248 :021, 003, 072, 173, 168, 197, 218 

49254 : 141, 020, 003, 173, 169, 197, 037 

49260 : 141 , 021 ,003 , 104 , 141 , 169 ,175 

49266 : 197 , 104 , 141 , 168 , 197 , 088 , 241 

49272 :096,165,157,240,089,024,123 

49278 : 165, 172, 101, 173, 240, 003, 212 

49284 :032, 198, 195, 198, 251, 208, 190 

49290 : 059 , 169 , 002 , 133 , 251 , 160 , 144 

49296 :000, 162, 000, 173, 000, 220, 187 

49302 :074, 176, 003, 202, 144, 015, 252 j i 

49308 :074, 176, 003, 232, 144, 009, 026 ' — ' 

49314 : 074 , 176 , 001 , 136 , 074 , 176 ,031 

49320 :001,200,074, 152, 208, 011, 046 v , 

49326 : 138, 208, 008, 176, 019, 032, 243 I j 

49332 :188,193,076,198,192,152,155 

49338 : 072, 032, 096, 196, 104, 168, 086 

49344 :032, 217, 192, 032, 096, 196, 189 

49350 : 056, 032, 240, 255, 224, 010, 247 

49356 :176, 008, 162, 010, 032, 240, 064 
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49362 : 255, 032, 198, 195, 108, 168, 142 
49368 :197, 008, 104, 133, 002, 152, 044 
49374 : 208, 003, 076, 117, 193, 016, 067 
49380 : 005, 198, 248, 048, 010 ,096, 065 
49386 : 230 , 248 , 165 , 248 , 201 , 040 , 086 
49392 :176, 067, 096, 230, 248, 165, 198 
49398 : 247, 208, 010, 198, 252, 016, 153 
49404 :073 , 169 ,063 , 133 , 252 , 208 ,126 
J { 49410 : 067, 201, 002, 208, 041, 200, 209 
49416 :162, 001, 070, 002, 176, 002, 165 
49422 : 162, 005, 198, 253, 165, 253, 026 
49428 : 201 , 255 , 208 , 002 , 198, 254 ,114 
49434 : 177 , 253 , 240 , 005 , 202 , 208 , 087 
49440 -.239,240, 010, 173, 166, 197, 033 
49446 : 133 , 253 , 173 , 167 , 197 , 133 , 070 
49452 :254, 076, 255, 195, 169, 039, 008 
49458 : 133 , 248 , 096 , 198 , 248 , 165 , 114 
49464 :247, 208, 014, 230, 252, 164, 147 
49470 : 252 , 185 , 170 , 197 , 208 , 002 , 052 
49476 :133, 252, 076, 233, 195, 201, 134 
49482 : 002, 208, 035, 162, 001, 070, 040 
49488 :002, 176, 002, 162, 005, 230, 145 
49494 : 253 , 208 , 002 , 230 , 254 , 177 , 186 
49500 : 253 , 240 ,005 , 202 , 208 , 243 , 219 
49506 : 240 , 201 , 173 , 164 , 197 , 133 , 182 
49512 :253, 173, 165, 197, 133, 254, 255 
49518 : 208, 189, 169, 000, 133, 248, 033 
49524 :096 , 206 , 167 ,002 , 208 , 036 ,063 
49530 : 169 , 006 , 141 , 167 , 002 , 160 ,255 
49536 :001, 138, 016, 027, 165, 247, 210 
49542 .-208,031,160,004,024,165,214 
49548 :249, 105, 080, 133, 249, 165, 097 
49554 : 250 , 105 , 000 , 133 , 250 , 230 , 090 
49560 : 247, 230, 247, 136, 208, 236, 176 
49566 : 096 , 165 , 247 , 201 , 008 , 208 , 059 
49572 :229, 160, 004, 056, 165, 249, 003 
r-l 49578 :233, 080, 133, 249, 165,250,000 
> l 49584 :233, 000, 133, 250, 198, 247, 213 
49590 : 198 , 247 , 136 , 208 , 236 , 096 ,023 
49596 :206, 168, 002, 240, 001, 096, 133 
j I 49602 : 169, 004, 141, 168, 002, 166, 076 
49608 :198, 208, 211, 164, 248, 165, 114 
49614 : 247 , 208 , 067 , 024 , 152 , 101 , 237 
i— * 49620 :252, 201, 063, 144, 002, 233, 083 
( I 49626 : 063, 168, 173, 169, 002, 240, 009 
49632 1010,048,003,206,169,002,150 
49638 :185, 234, 197, 208, 035, 173, 238 
!"■"{ 49644 :170, 002, 240, 010, 048, 003, 197 
1 49650 :206, 170, 002, 185, 042, 198, 021 
49656 :208, 020, 173, 171 ,002, 240, 038 
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49662 : 012, 048, 003, 206, 171, 002, 184 

49668 : 185 , 106 , 198 , 208 , 005 , 240 , 178 

49674 : 003, 185, 170, 197, 157, 119, 073 

49680 :002, 230, 198, 096, 201, 002, 233 

49686 .-208,101,152, 024, 101, 253, 093 

49692 : 141, 162, 197, 165, 254, 105, 028 

49698 : 000 , 141 , 163 , 197 , 205 , 167 , 139 

49704 : 197 , 144 ,038 , 240 ,002 , 176 , 069 

497 10 : 010 , 173 , 162 , 197 , 205 , 166 , 191 

49716 :197, 240, 026, 144, 024, 024, 195 

49722 : 173 , 162 , 197 , 237 , 166 , 197 , 166 

49728 :133, 248, 173, 164, 197, 133, 088 

49734 : 253, 173, 165, 197, 133, 254, 221 

49740 : 032, 198, 195, 164, 248, 177, 066 

49746 : 253, 201, 032, 240, 016, 136, 192 

49752 :016, 247, 200, 198, 253, 165, 143 

49758 : 253 , 201 , 255 , 208 , 238 ,198 , 167 

49764 : 254, 208, 234, 166, 198,200,080 

49770 : 177, 253, 201, 032, 240, 010, 251 

49776 :157, 119, 002, 232, 236, 137, 227 

49782 : 002, 144, 240, 202, 134, 198, 014 

49788 :096, 201, 004, 208, 009, 185, 059 

49794 : 170, 198, 157, 119, 002, 230, 238 

49800 : 198 , 096 , 201 ,006 , 208 ,017 ,094 

49806 : 192 , 024 , 176 ,009 , 185 , 209 , 169 

49812 :198, 157, 119, 002, 230, 198, 028 

49818 :096, 192, 024, 208, 016, 208, 130 

49824 : 120, 174, 032, 208, 232, 224, 126 

49830 : 016, 208, 002, 162, 000, 142, 184 

49836 :032, 208, 096, 192, 025, 208, 165 

49842 :014, 174, 033, 208, 232, 224, 039 

49848 : 016 , 208 ,002 , 162 ,000 , 142 , 202 

49854 : 033, 208,096,192,026,208,185 

49860 : 058, 174, 134, 002, 232, 224, 252 

49866 : 016 , 208 , 002 , 162 , 000 , 142 , 220 

49872 :134, 002, 165, 253, 141, 162, 041 

49878 :197, 165, 254, 141, 163, 197, 051 

49884 : 169, 000, 133, 253, 169, 216, 136 

49890 : 133, 254, 138, 160, 000, 145, 032 

49896 :253, 200, 208, 251, 230, 254, 092 

49902 : 165, 254, 201, 220, 208, 240, 246 M 

49908 :173, 162, 197, 133, 253, 173, 055 

49914 : 163, 197, 133, 254, 096, 192, 005 

49920 :035, 176, 011, 173, 170, 002, 055 } j 

49926 : 048, 005, 169,001,141,170,028 I — i 

49932 :002, 096, 173, 171, 002, 048, 248 

49938 :250, 169, 001, 141, 171, 002, 240 

49944 :096, 192, 006, 176, 011, 173, 166 1 j 

49950 : 169, 002, 048, 235, 169, 001, 142 

49956 : 141, 169, 002, 096, 192, 011, 135 
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i— I 49962 :176, 027, 173,169,002,073,150 

l_J 49968 :128, 141, 169, 002, 162, 004, 142 

49974 :160, 006, 185, 058, 199, 073, 223 

49980 : 128 , 1 53 , 058 , 199 , 200 ,202,232 

f ! 49986 s208,244,076,198,195,192,155 

'-J 49992 :018, 176, 014, 173, 170, 002, 113 

49998 : 073 , 128 , 141 , 170 , 002 , 162 ,242 

^ 50004 :006, 160, 011, 208, 223, 192, 116 

| | 50010 :023, 176, 014, 173, 171, 002, 137 

50016 :073, 128, 141, 171, 002, 162, 005 

50022 :004, 160, 018, 208, 205, 192, 121 

50028 :028, 144, 019, 192, 031, 144, 154 

50034 :001 , 096 ,032 , 090 , 192 , 173 , 186 

50040 :152, 197, 016, 003, 032, 130, 138 

50046 : 195 , 108 , 046 , 003 , 173 , 152 , 035 

50052 :197, 073, 128, 141, 152, 197, 252 

50058 : 162, 004, 160, 023, 201, 128, 048 

50064 : 240 ,014 , 173 , 106 , 196 , 141 , 246 

50070 :036 , 003 , 173 , 107 , 196 , 141 , 038 

50076 :037, 003, 208, 201, 173, 036, 046 

50082 : 003 , 141 , 106 , 196 , 173 , 037 , 050 

50088 :003, 141, 107, 196, 169, 105, 121 

50094 : 141 ,036 , 003 , 169 , 196 , 141 , 092 

50100 :037, 003, 169, 000, 132, 002, 011 

50106 : 160 , 004 , 153 , 000 , 002 , 136 , 129 

50112 :016, 250, 164, 002, 208, 163, 227 

50118 : 173 , 134 , 002 , 160 , 000 , 153 , 052 

50124 :000 , 2 16 , 200 , 208 , 2 50 , 1 53 , 207 

50130 :000, 217, 200, 192, 144, 208, 147 

50136 :248, 032, 233, 195, 032, 255, 187 

50142 .-195,032,045,196,032,073,027 

50148 :196, 032, 096, 196, 096, 165, 241 

50154 : 252 , 162 , 000 , 168 , 185 , 170 , 147 

50160 : 197, 240, 250, 041 ,063, 157, 164 

50166 :000, 004, 200, 232, 224, 040, 178 

50172 :208, 240, 096, 165, 253, 141, 075 

50178 :014, 196, 165, 254, 141, 015, 019 

50184 :196, 160, 000, 162, 000, 185, 199 

50190 : 255, 255, 208, 015, 168, 173, 064 

50196 :164, 197, 141, 014, 196, 173, 137 

50202 : 165 , 197 , 141 , 015 , 196 , 208 ,180 

50208 :236, 041, 063, 157, 080, 004, 101 

50214 : 200 , 232 , 224 , 040 , 208 , 225 , 143 

50220 :096, 160, 039, 185, 234, 198, 188 

50226 :041 , 063 , 153 , 160 , 004 , 185 , 144 

50232 :018, 199, 041, 063, 153, 240, 002 

50238 :004, 185, 058, 199, 153, 064, 213 

50244 : 005 , 136 ,016,231, 096 , 160 , 200 

50250 :039, 169,064, 153,040,004,031 

50256 :153, 120 ,004, 153, 200, 004, 202 
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50262 :153, 024, 005, 153, 104, 005, 018 , , 

50268 :136, 016, 238, 096, 164, 248, 222 [_J 

50274 :177, 249, 073, 128, 145, 249, 095 

50280 :096 ,032 ,087 , 241 , 141 , 159 ,092 

50286 :197,142,160,197,140,161,083 \ i 

50292 $197,008,201,013,208,003,234 

50298 : 032, 136, 196, 173, 159, 197, 247 

50304 : 174, 160, 197, 172, 161, 197, 165 

50310 : 040, 096, 160, 000, 140, 154, 212 

50316 :197, 140, 155, 197, 185, 000, 246 

50322 :002 , 140, 153 ,197 , 201 , 058 , 129 

50328 :176, 077 ,201, 048 ,144, 073, 103 

50334 : 041, 015, 170, 173, 154, 197, 140 

50340 : 141, 156, 197, 173, 155, 197, 159 

50346 : 141 , 157 , 197 , 014 , 154 , 197 , 006 

50352 :046, 155, 197, 014, 154, 197, 171 

50358 :046, 155, 197, 024, 173, 154, 163 

50364 : 197 , 109 , 156 , 197 , 141 , 154 ,118 

50370 : 197, 173, 155, 197, 109, 157, 158 

50376 : 197, 141, 155, 197, 014, 154, 034 

50382 : 197, 046, 155, 197, 138, 024, 195 

50388 :109, 154, 197, 141, 154, 197, 140 

50394 : 169 , 000 , 109 , 155 , 197 , 141 , 221 

50400 s 155, 197, 200, 192, 005, 208, 157 

50406 : 169 , 173 , 153 , 197 , 208 , 001 , 107 

50412 :096, 024, 169, 010, 109, 154, 030 

50418 : 197, 141, 154, 197, 169, 000, 076 

50424 : 109, 155, 197, 141, 155, 197, 178 

50430 : 160,000,140,156,197,140,023 

50436 :157, 197, 140, 158, 197, 140, 225 

50442 » 153, 197, 162, 015, 014, 154, 193 

50448 :197,046,155,197,120,248,211 

50454 : 173, 156, 197, 109, 156, 197, 242 

50460 : 141, 156, 197, 173, 157, 197, 025 

50466 : 109, 157, 197, 141, 157, 197, 224 

50472 t 173 , 158 , 197 , 109 , 158 , 197 , 008 

50478 : 141, 158, 197, 216, 088, 202, 024 

50484 :016, 216, 164, 198, 162, 002, 042 

50490 : 189, 156, 197, 072, 074, 074, 052 

50496 :074, 074, 032, 087, 197, 104, 120 

50502 :041, 015, 032, 087, 197, 202, 132 

50508 :016, 236, 169, 032, 153, 119, 033 

50514 :002, 200, 132, 198, 096, 205, 147 

50520 : 153, 197, 240, 009, 009, 048, 232 

50526 : 141, 153, 197, 153, 119, 002, 091 

50532 :200, 096, 141, 159, 197, 032, 157 

50538 :090,192,173,159,197,032,181 

50544 :255, 255, 141, 159, 197, 032, 127 

50550 : 090, 192, 173, 159, 197, 096, 001 

50556 : 141, 159, 197, 032, 090, 192, 167 
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50562 : 173, 159, 197, 032, 255, 255, 177 
50568 $141,159,197,032,090,192,179 
50574 : 169, 000, 133, 172, 133, 173, 154 
50580 : 173, 159, 197, 096, 000, 000, 005 
50586 : 000 , 000 , 000 , 000 , 000 , 000 , 154 
50592 :000, 000, 000, 000, 099, 199, 202 
50598 : 211, 200, 121, 192, 033, 034, 189 
50604 .-035,036,037,038,039,040,141 
50610 : 041 , 042 , 043 , 044 , 045 , 046 , 183 
50616 :047, 048, 049, 050, 051, 052, 225 
50622 : 053, 054, 055, 056, 057, 058, 011 
50628 :059, 060, 061, 062, 063, 064, 053 
50634 : 065 , 066 , 067 , 068 , 069 , 070 , 095 
50640 :071, 072, 073, 074, 075 ,076, 137 
50646 :077, 078, 079, 080, 081, 082, 179 
50652 :083, 084, 085, 086, 087, 088, 221 
50658 : 089, 090, 091, 092, 093, 094, 007 
50664 :095, 000, 033, 034, 035, 036, 209 
50670 :037, 038, 039, 040, 041, 192, 113 
50676 :219, 060, 221, 062, 063, 048, 149 
50682 :033, 034, 035, 036, 037, 038, 207 
50688 :039, 040, 041, 091, 093, 060, 108 
50694 : 061 , 062 , 063 , 186 , 193 , 194 , 253 
50700 : 195, 196, 197, 198, 199, 200, 173 
50706 : 201 , 202 , 203 , 204 , 205 , 206 ,215 
50712 :207, 208, 209, 210, 211, 212, 001 
50718 : 213, 214, 215, 216, 217, 218, 043 
50724 :091, 169, 093, 255 ,095, 000, 227 
50730 : 129 , 149 , 150 , 151 , 152 , 153 , 158 
50736 : 154, 155, 041, 223, 166, 060, 079 
50742 : 220 , 062 , 063 , 048 , 129 , 149 , 213 
50748 :150, 151, 152, 153, 154, 155, 207 
50754 : 041, 091, 093, 060, 061, 062, 218 
50760 : 063, 164, 176, 191, 188, 172, 002 
50766 : 177, 187, 165, 180, 162, 181, 106 
50772 :161,182,167,170,185,175,100 
50778 : 171, 178, 174, 163, 184, 190, 126 
50784 : 179, 189, 183, 173, 091, 168, 055 
50790 : 093, 255, 095, 000, 144, 005, 182 
50796 :028, 159, 156, 030, 031, 158, 158 
50802 : 018, 042, 043, 044, 045, 046, 096 
50808 :047, 146, 144, 005, 028, 159, 137 
50814 : 156, 030, 031, 158, 018, 027, 034 
50820 : 029, 060, 031, 062, 063, 000, 121 
50826 : 001, 002, 003, 004, 005, 006, 159 
50832 :007, 008, 009, 074, 075, 076, 137 
50838 :013,014,015, 016, 017, 018, 243 
50844 8019,020,021,022,023,024,029 
50850 :025, 026, 027, 028, 029, 030, 071 
50856 : 006, 000, 013, 013, 013, 013, 226 
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50862 
50868 
50874 
50880 
50886 
50892 
50898 
50904 
50910 
50916 
50922 
50928 
509 34 
50940 
50946 
50952 
50958 
50964 
50970 
50976 
50982 
50988 
50994 
51000 
51006 
51012 
51018 
51024 
51030 
51036 
51042 
51048 
51054 
51060 
51066 
51072 
51078 
51084 
51090 
51096 
51102 
51108 
51114 
51120 
51126 
51132 
51138 
51144 
51150 
51156 

262 



:013,013 
:032,032 
:017,157 
:147,147 

: 019 ,019 
: 148, 020 
133,133 
134,134 
135,135 
136,136 
082,069 
032,083 
032,085 
032,082 
032,072 
073,078 
069,076 
032,070 
032,070 
032,070 
032,070 
067,032 
082,069 
076,032 
020,032 
032,003 
005,032 
032,001 
015,006 
032,032 
000,032 
032,065 
083,067 
078,040 
036,040 
083,069 
032,067 
079,078 
083,040 
065,032 
070,078 
032,069 
088,080 
032,070 
079,032 
032,071 
069,084 
083,085 
084,079 
084,072 



,013,032 
,032,145 
,157,029 
,147,019 
,148,148 
,020,020 
,137,137 
,138,138 
,139,139 
,140,140 
,084,085 
,080,065 
,032,068 
,032,067 
,079,077 
,083,084 
,032,032 
,050,032 
,052,032 
,054,032 
,056,032 
,067,079 
,032,067 
,019,008 
,012,015 
,015,013 
,003,020 
,021,020 
,006,032 
,032,032 
,065,066 
,078,068 
,040,032 
,032,067 
,032,067 
,032,067 
,077,068 
,084,032 
,032,068 
,068,069 
,032,068 
,078,068 
,040,032 
,079,082 
,070,082 
,069,084 
,035,032 
,066,032 
,032,073 
,069,078 



,032, 
,145, 
,029, 
,019, 
,148, 
,020, 
,137, 
,138, 
,139, 
,140, 
,082, 
,067, 
,032, 
,076, 
,069, 
,032, 
,070, 
,070, 
,070, 
,070, 
,066, 
,077, 
,084, 
,009, 
,003, 
,004, 
,018, 
,015, 
,032, 
,032, 
,083, 
,032, 
,065, 
,072, 
,076, 
,076, 
,032, 
,067, 
,065, 
,070, 
,073, 
,032, 
,070, 
,032, 
,069, 
,032, 
,071, 
,071, 
,070, 
,032, 



032,053 
017,071 
147,210 
019,178 
148,060 
133,053 
134,253 
135,009 
136,021 
000,152 
078,202 
069,124 
076,059 
082,111 
032,107 
068,170 
049,086 
051,069 
053,079 
055,089 
066,104 
068,178 
082,210 
006,206 
011,155 
018,153 
012,164 
032,201 
032,209 
032,028 
040,128 
065,188 
084,225 
082,231 
079,196 
082,025 
067,221 
079,047 
084,006 
032,232 
077,044 
069,000 
078,046 
084,043 
040,042 
071,035 
079,052 
079,104 
032,064 
073,108 



u 



u 
u 

u 

u 



Utilities 5 



i i 



H 



51162 : 078, 080, 085, 084, 032, 073, 138 

51168 :078, 080, 085, 084, 035, 032, 106 

51174 : 073, 078, 084, 040, 032, 076, 101 

51180 :069, 070, 084, 036, 040, 032, 055 

51186 :076, 069, 078, 040, 032, 076, 101 

51192 :069, 084, 032, 076, 073, 083, 153 

51198 : 084, 032, 076, 079, 065, 068, 146 

51204 :032, 076, 079, 071, 040, 032, 078 

51210 :077, 073, 068, 036, 040, 032, 080 

51216 :078, 069, 087, 032, 078, 069, 173 

51222 :088, 084, 032, 078, 079, 084, 211 

51228 :032, 079, 078, 032, 079, 080, 152 

51234 : 069, 078, 032, 079, 082, 032, 150 

51240 :080, 069, 069, 075, 040, 032, 149 

51246 : 080, 079, 075, 069, 032, 080, 205 

51252 :079, 083, 040, 032, 080, 082, 192 

51258 : 073, 078, 084, 032, 080, 082, 231 

51264 :073, 078, 084, 035, 032, 082, 192 

51270 : 069 , 065 , 068 , 032 , 082 , 069 , 1 99 

51276 :077, 032, 082, 069, 083, 084, 247 

51282 : 079 , 082 , 069 , 032 , 082 , 069 , 239 

51288 : 084, 085, 082, 078, 032, 082, 019 

51294 : 073, 071, 072, 084, 036, 040, 214 

51300 :032, 082, 078, 068, 040, 032, 176 

51306 : 082, 085, 078, 032, 083, 065, 019 

51312 :086, 069, 032, 083, 071, 078, 019 

51318 :040, 032, 083, 073, 078, 040, 208 

51324 :032, 083, 080, 067, 040, 032, 202 

51330 :083, 081, 082, 040, 032, 083, 019 

51336 :084, 065, 084, 085, 083, 032, 057 

51342 : 083, 084, 069, 080, 032, 083, 061 

51348 :084, 079, 080, 032, 083, 084, 078 

51354 :082, 036, 040, 032, 083, 089, 004 

51360 :083, 032, 084, 065, 066, 040, 018 

51366 :032, 084, 065, 078, 040, 032, 241 

51372 :084, 072, 069, 078, 032, 084, 079 

51378 :073, 077, 069, 032, 084, 073, 074 

51384 :077, 069, 036, 032, 084, 079, 049 

51390 :032, 085, 083, 082, 032, 086, 078 

51396 :065, 076, 040, 032, 086, 069, 052 

51402 : 082, 073, 070, 089, 032, 087, 123 

51408 :065, 073, 084, 032, 000, 013, 219 

Program 2. JEProof 

51500 : 173 , 036 , 003 , 201 , 077 , 208 , 230 

51506 :001 , 096 , 141 , 078 , 201 , 173 , 228 

51512 :037, 003, 141, 079, 201, 169, 174 

51518 :077, 141, 036, 003, 169, 201, 177 

51524 : 141, 037, 003, 169, 000, 141, 047 

51530 : 213, 201, 096, 032, 087, 241, 176 
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51536 : 141 , 210 , 201 , 142 , 211 , 201 , 162 

51542 :140, 212, 201, 008, 201, 013, 093 j ( 

51548 :240, 022, 201, 032, 240, 007, 066 WJ 

51554 :024, 109, 213, 201, 141, 213, 231 

51560 :201, 173, 210, 201, 174, 211, 250 » , 

51566 :201, 172, 212,201,040,096,008 U 

51572 : 174, 213, 201, 248, 169, 000, 097 

51578 : 141, 000, 001, 141, 001, 001, 151 

51584 :224, 000, 240, 021, 202,024,071 I j 

51590 »173, 000, 001, 105, 001, 141, 043 < — ' 

51596 :000, 001, 173, 001, 001, 105, 165 

51602 : 000, 141 , 001 , 001 , 076 , 128 , 237 

51608 : 201 , 216 , 173 ,001 , 001 , 009 , 241 

51614 : 176, 141, 002, 001, 173, 000, 139 

51620 : 001 , 074 , 074 , 074 , 074 , 009 , 214 

51626 : 176, 141, 001, 001, 173, 000, 150 

51632 :001, 041, 015, 009, 176, 141, 047 

51638 :000, 001, 162, 002, 160, 000, 251 

51644 : 140, 213 , 201 , 173 , 134 , 002 , 027 

51650 : 153, 096, 217, 189, 000, 001, 082 

51656 : 153 , 096 , 005 , 200 , 202 , 016 , 104 

51662 : 240, 076, 105, 201, 013, 013, 086 
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One-Touch 
Keywords 

Mark Niggemann 

This powerful programming utility puts 52 of the 
most common BASIC keywords at your fingertips. 



The less time spent typing, the more time you have for 
programming. "One-Touch Keywords" lets you use any of the 
letter keys in combination with either the SHIFT or Com- 
modore key to instantly print a BASIC keyword on the screen. 
For example, instead of typing GOSUB, you can hold down 
SHIFT and press G, and GOSUB will appear as if you had 
typed the whole keyword. See the table for a list of all the 
keywords available. 

Activating the Keywords 

The program is a BASIC loader which moves the machine lan- 
guage from DATA statements into the upper part of free mem- 
ory. It also protects the machine language from interference by 
BASIC. 

Type in One-Touch Keywords by using "The Automatic 
Proofreader" program found in Appendix C. It will save you 
considerable time you might otherwise spend in checking and 
rechecking your program listing. 

A final checksum routine (lines 710-750) is included to 
aid in finding any errors in the machine language data. After 
you run the program once, type RUN 700 and the program 
will check your typing. Recheck the DATA statements if you 
get an error message. This final checksum is added insurance 
to the line-by-line checksum provided by the Proofreader. 

To activate the machine language, type SYS followed by 
the number displayed on the screen as the on/off address, 
then press RETURN. The one-touch keywords will remain en- 
abled even after the RESTORE key has been pressed. To dis- 
able the keywords, SYS the on/off address again. 
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Keywords 



Key 


w/ SHIFT 


w/ Commodore 


A 


PRINT 


PRINT* 


B 


AND 


OR 


C 


CHR$ 


ASC 


D 


READ 


DATA 


E 


GET 


END 


F 


FOR 


NEXT 


G 


GOSUB 


RETURN 


H 


TO 


STEP 


I 


INPUT 


INPUT* 


J 


GOTO 


ON 


K 


DIM 


RESTORE 


L 


LOAD 


SAVE 


M 


MID$ 


LEN 


N 


INT 


RND 





OPEN 


CLOSE 


P 


POKE 


PEEK 


Q 


TAB( 


SPC( 


R 


RIGHTS 


LEFT$ 


S 


STR$ 


VAL 


T 


IF 


THEN 


U 


TAN 


SQR 


V 


VERIFY 


CMD 


w 


DEF 


FN 


X 


LIST 


FRE 


Y 


SIN 


COS 


z 


RUN 


SYS 



One-Touch Keywords 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

140 IP PEEK(PEEK(56)*256)<>120THENPOKE56,PEEK(56)- 
ltCLR 

HI=PEEK(56) iBASE»HI*256 
PRINT" {CLR} PATIENCE. . . " 
FOR AD=0 TO 211: READ BY 
POKE BASE+AD.BY: NEXT AD 
: 

REM RELOCATION ADJUSTMENTS 
POKE BASE+26,HI: POKE BASE+81,HI 
POKE BASE+123,HI: POKE BASE+133,HI 



150 
160 
170 
180 
190 
200 
210 
220 
230 
231 



::IF PEEK(65532)=34 GOTO 240 



:rem 158 
:rem 47 
:rem 206 
:rem 153 
:rem 88 
:rem 212 
trem 184 
:rem 2 
trem 95 
trem 207 
srem 135 



U 
U 

u 

u 
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232 
233 
234 
235 
236 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 

500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 



::POKE BASE+9,72: POKE BASE+48,194 

::POKE BASE+52,235: POKE BASE+92,160 

t:POKE BASE+154,72: POKE BASE+157,224 

t:POKE BASE+158,234 



PRINT" {CLR}* ONE-TOUCH KEYWORDS *" 

PRINT "ON/OPF : { 3 SPACES } SYS { RVS } " ; BASE 

END 

DATA 120, 173, 143, 2, 201, 32 

DATA 208, 12, 169, 220, 141, 143 

DATA 2, 169, 235, 141, 144, 2 

DATA 88, 96, 169, 32, 141, 143 

DATA 2, 169,(2 SPACES }0, 141, 144, 2 

DATA 88, 96, 165, 212, 208, 117 

DATA 173, 141, 2, 201, 3, 176 

DATA 110, 201, 0, 240, 106, 169 

DATA 159, 133, 245, 169, 236, 133 

DATA 246, 165, 215, 201, 193, 144 

DATA 95, 201, 219, 176, 91, 56 

DATA 233, 193, 174, 141, 2, 224 

DATA 2, 208, 3, 24, 105, 26 

DATA 170, 189, 159, {2 SPACES}0, 162, 

DATA 134, 198, 170, 160, 158, 132 

DATA 34, 160, 192, 132, 35, 160 

DATA 0, 10, 240, 16, 202, 16 

DATA 12, 230, 34, 208, 2, 230 

DATA 35, 177, 34, 16, 246, 48 

DATA 241, 200, 177, 34, 48, 17 

DATA 8, 142, 211,(2 SPACES}0, 230, 198 :rem 91 

DATA 166, 198, 157, 119, 2, 174 trem 215 

DATA 211,(2 SPACES}0, 40, 208, 234, 230 

:rem 131 
DATA 198, 166, 198, 41, 127, 157 
DATA 119, 2, 230, 198, 169, 20 
DATA 141, 119, 2, 76, 220, 235 
DATA 76, 67, 236 



:rem 51 

:rem 139 

:rem 193 

:rem 230 

:rem 15 

:rem 88 

:rem 176 

trem 111 

trem 127 

:rem 239 

:rem 94 

:rem 155 

:rem 237 

:rem 206 

:rem 83 

:rem 175 

:rem 49 

:rem 40 

:rem 160 

:rem 194 

:rem 245 

:rem 92 

trem 40 

:rem 187 

:rem 22 

:rem 78 

:rem 108 

:rem 147 



REM *TOKENS FOR SHIFT KEY 

• 

DATA 153, 175, 199, 135, 161, 

DATA 141, 164, 133, 137, 134, 

DATA 202, 181, 159, 151, 163, 

DATA 196, 139, 192, 149, 150, 

DATA 191, 138 

■ 

REM *TOKENS FOR COMMODORE KEY 

: 



129 
147 
201 
155 



trem 8 

trem 146 

trem 139 

trem 127 

trem 211 

trem 202 

trem 213 

trem 56 

trem 42 

trem 37 

trem 52 

trem 20 

trem 210 

trem 240 

trem 212 
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650 DATA 152, 176, 198, 131, 128, 130 :rem 45 
660 DATA 142, 169, 132, 145, 140, 143 :rem 43 
670 DATA 195, 187, 160, 194, 166, 200 :rem 54 
680 DATA 197, 167, 186, 157, 165, 184 :rem 72 
690 DATA 190, 158, :rem 121 

700 : s :rem 11 

710 :$REM *CHECKSUM ROUTINE :rem 147 

720 :: :rem 13 

730 ::FOR AD=0 TO 158 : READ BY :rem 25 

740 ::CHKSUM = CHKSUM + BY : NEXT AD :rem 166 
750 ::IF CHKSUM <> 20347 THEN PRINT "ERROR1" 

a rem 143 



U 
U 
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Autoload 



f~[ Dan Carmichael 

i I 

Have you ever wanted to type LOAD"*",8,l and 
r~*i have your favorite program automatically load and 

' ' run itself like commercial software packages do! 

"Autoload" will create a program to do just dun. 



When using commercial software, you've probably noticed 
that typing and entering LOAD"*",8,l will automatically load 
and start a program running without having to enter RUN. 
The first program loaded is known as a boot program. It's this 
program that loads and executes other programs on the disk. 

There are a number of different techniques that can 
accomplish this, such as overwriting the stack or changing vec- 
tors. (A vector is a pointer to the starting location of a machine 
language subroutine.) "Autoload" uses the latter method. 

Manipulating the Vectors 

In the Commodore 64, there's an area of unused memory 
from locations 679 to 767 ($02A7-$02FF). Like the cassette 
buffer, this 89-byte area is perfect for holding small machine 
language programs. 

Just past the end of this area of memory is a table of im- 
portant vectors. In the 64, these vectors are two bytes each, 
using the low byte/high byte format. By changing the values 
of these pointers, you can redirect the system to your own 
programs. 

The vector we'll be using for Autoload is the BASIC Warm 
Start Vector at 770-771 ($0302-$0303). This vector points to 
the main BASIC program loop. This one loop is executed more 
often than any other routine of BASIC. It checks the keyboard 
__ again and again, waiting for input. When a key is pressed, it 

I \ prints the character on the screen. It also watches for the RE- 
TURN key; pressing it sends the routine into action. This 
BASIC routine looks at the beginning of the line for a number 
(J as well. If it finds one, it assumes you're writing a program 

and enters it as a BASIC line. When no line number is found, 



n 
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it executes the statement in direct mode. After executing the , , 

program (or the statement, if there's no number), the computer 1 | 

goes back to the main BASIC program loop, waiting patiently 

for more from the keyboard. , , 

This vector is also utilized when loading a program. After 1 | 

a program is loaded into the computer, the system returns to 

the BASIC program mode by looking at this pointer and , > 

executing the BASIC warm start program at 42115 ($A483). | ! 

By changing the values in this vector, the computer can 
be directed to execute any machine language program instead 
of the normal BASIC warm start. In Autoload, changing the 
pointer value is accomplished by loading a program (which in- 
cludes the new pointer values) over the pointer. 

The automatic boot program that will be created (by 
Autoload) and saved to disk is placed into the area between 
679-750 ($02A7-$02EE). Before it's saved, the vector is 
changed to point to the start of the autoboot program which is 
at 679 ($02A7). Then the program and the pointer (locations 
679-771, $02A7-$0303) are saved to disk as one module. 

This becomes our autoboot program. Here's how it works: 

The autoboot program (along with the vector with the 
changed values) is loaded into memory. If it's the first pro- 
gram in the disk's directory, it can be loaded with the 
LOAD"*",8,l format. After the LOAD is finished, the com- 
puter looks at the BASIC warm start vector. Because the vector 
now points to the start of the autoboot program (location 679), 
that program is executed instead of the normal BASIC warm 
start routine. The autoboot program, in turn, loads in and exe- 
cutes the program you've specified. 

A Newly Created Program 

Type in Autoload. It's a BASIC program that POKEs a ma- [_| 

chine language program into memory. When you're through, 
save it to disk. 

Because Autoload is in the form of a BASIC loader, you j j 

can use "The Automatic Proofreader" from Appendix C to 
help you type it in. Make sure you've read Appendix C and 
have a copy of the Proofreader on disk before you begin { [ 
entering this program. There are also two other checksums in- 
cluded in Autoload to verify that the DATA statements were 
entered correctly. j j 

If you wish to autoboot a program using the 
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|—j LOAD"*",8,l syntax, fonnat a new disk and don't save any 

! files on it until after you've created the autoboot program. 

This will insure that the autoboot program is the first entry in 
the disk directory. 

The first prompt will ask if the program you want to be 
automatically loaded and run is a BASIC or machine language 
program. Press B or M. If you press M for machine language, 
you'll be asked to supply the beginning address of the ML 
program. This is the SYS address that starts the ML program 
running. (In the ML programs in the book, for instance, you'll 
find that SYS mentioned near the beginning of the article, 
where details on how to enter and run it are described.) Enter 
a number, then press RETURN. 

Next, enter the name of the program you want to be auto- 
matically loaded. The program then instructs you to insert a 
newly formatted disk into the disk drive. Actually, the disk 
needs to be freshly formatted only if you wish to use the 
LOAD"*",8,l syntax. Saving the autoboot program to a disk 
that contains other files is fine. 

Enter the name you wish to give to the autoboot program 
you'll be creating. For future reference, you might want to in- 
dicate in the filename that it's a boot program. For example, if 
you want to automatically load and run SPACEGAME, you 
could name the autoboot program for that game 
SPACEGAME.BOOT. 

After the Autoload program has run and created the 
autoboot program on the disk, turn off your 64 to reset the 
system. Be sure to then save a copy of the program you wish 
to have loaded and run on the same disk as the autoboot pro- 
gram. (It can't load and run a program that isn't there.) Be 
sure that you save the program with the same filename you 
told the autoboot program to look for. 

To use the autoboot program, type LO AD' 'filename" ,8, 1 
where filename is the name of the autoboot program you cre- 
ated, not the name of the program that autoboot is to load and 
run. For example, typing LOAD"SPACEGAME.BOOT",8,l 
will automatically load and run "SPACEGAME". If you've 
done everything correctly, the program you specified should 
automatically run. 

Remember that for every program you want to load auto- 
matically, you will have to create a separate autoboot pro- 
gram. You can't just enter LOAD"*",8,l and expect every 



271 



5 Utilities 



program on the disk to automatically load. That would be a 
more complicated program. It wouldn't be that difficult, 
though; have Autoload load and run your own boot program, 
and it, in turn, could load any other programs you wanted. 



U 
U 

u 
u 

Autoload 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. — 

5 PRINT" {CLR} PLEASE WAIT..." trem 18 | J 

10 B=679:C=767:TT=0 trem 51 

20 FORA=BTOCtREADDtTT=TT+DtPOKEA,DtNEXT :rem 82 
25 IPTT08554THENPRINT "CHECK DATA STATEMENTS" ; B; "T 

0";CtEND :rem 156 

30 B=7168:C=7623:TT=0 :rem 147 

40 FORA=BTOCtREADDtTT=TT+DtPOKEA,DtNEXT trem 84 
45 IFTT042577THENPRINT "CHECK DATA STATEMENTS "; B ; " 

TO";C:END :rem 209 

50 PRINT "{CLR} {DOWN} AUTO-LOAD A {RVS}B{OFF}ASIC 

{SPACEjOR {RVS}M{OFF}ACHINE LANGUAGE{3 SPACES}P 

ROGRAM?" :rem 124 

70 GETA$:IFA$=""THEN70 :rem 241 

80 IFA$="M"THENGOSUB300 :rem 108 

299 SYS7168:END :rem 138 

300 PRINT" {CLR} {DOWN} ENTER STARTING ADDRESS OF MA 
CHINE LANG. PROGRAM." :rem 24 

330 INPUTNtIFN<0ORN>65535THEN300 trem 238 
340 NN=INT(N/256) tPOKE722,N-(NN*256) tPOKE723,NNtPO 

KE721.32 trem 134 

345 POKE693,l :rem 202 
350 POKE718,32tPOKE719,66tPOKE720,166tPOKE724,76tP 

OKE725,116:POKE726,164:RETURN srem 184 

679 DATA169,131,141,2,3,169,164,141 J rem 245 

687 DATA3, 3, 169, 8, 170, 160, 0,32 :rem 245 

695 DATA186,255,169,2,162,239,160,2 :rem 255 

703 DATA32, 189, 255, 169, 0,166, 43, 164 :rem 250 

711 DATA44, 32, 213, 255, 32, 231, 255, 165 trem 25 

719 DATA174,133,45,133,47,165,175,133 :rem 93 

727 DATA46, 133, 48, 234, 169, 82, 141, 119 :rem 47 

735 DATA2, 169, 213, 141, 120, 2, 169, 13 trem 180 

743 DATA141,121,2,169,3,133,198,96 :rem 195 -- 

751 DATA0, 0,0, 0,0, 0,0,0 trem 107 j [ 

759 DATA0,0,0,0,0,0,0,0,0 trem 207 

7168 DATA162, 0,189, 171, 28, 32, 210,255 trem 38 

7176 DATA232,224,98,208,245,162,0,32 trem 38 

7184 DATA207,255,201,13,240,8,157,239 trem 87 

7192 DATA2, 232, 224, 16, 208, 241, 142, 186 trem 80 

7200 DATA2, 162, 0,189, 13, 29, 32, 210 trem 123 

7208 DATA255, 232, 224, 59, 208, 245, 162,0 trem 86 I 

7216 DATA160, 0,232, 234, 208, 252, 200, 208 trem 116 

7224 DATA249,165,197,201,64,240,250,169 trem 195 
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7232 DATA0, 133, 198, 162, 0,189, 74, 29 :rent 198 

7240 DATA32, 210, 255, 232, 224, 85, 208, 245 trem 128 

7248 DATA162,0,32,207,255,201,13,240 :rem 19 

7256 DATA8, 157, 200, 29, 232, 224, 16, 208 trem 36 

7264 DATA241,142,111,28,169,167,141,2 trem 82 

7272 DATA3,169,2,141,3,3,169,0 trem 241 

7280 DATA162,200,160,29,32,189,255,169 trem 143 

7288 DATA8, 170, 160, 255, 32, 186, 255, 169 :rem 106 

7296 DATA167,133,251,169,2,133,252,169 :rem 149 

7304 DATA251,162,4,160,3,32,216,255 :rem 229 

7312 DATA32,231,255,169,131,141,2,3 :rem 226 

7320 DATA169,164,141,3,3,162,0,189 :rem 188 

7328 DATA159,29,32,210,255,232,224,41 :rem 84 

7336 DATA208,245,96,147,17,32,69,78 :rem 12 

7344 DATA84,69,82,32,78,65,77,69 :rem 129 

7352 DATA32,79,70,32,13,80,82,79 trem 102 

7360 DATA71,82,65,77,32,84,72,65 :rem 110 

7368 DATA84,32,73,83,32,84,79,32 trem 114 

7376 DATA66,69,13,65,85,84,79,77 trem 134 

7384 DATA65,84,73,67,65,76,76,89 :rem 136 

7392 DATA32,66,79,79,84,69,68,46 :rem 135 

7400 DATA13,17,32,77,65,88,73,77 » rem 107 

7408 DATA85,77,32,76,69,78,71,84 irem 128 

7416 DATA72,32,61,32,49,54,13,67 :rem 97 

7424 DATA72,65,82,65,67,84,69,82 :rem 122 

7432 DATA83,46,17,17,13,147,17,80 :rem 147 

7440 DATA76,65,67,69,32,78,69,87 :rem 131 

7448 DATA76,89,32,70,79,82,77,65 trem 130 

7456 DATA84,84,69,68,13,32,68,73 :rem 122 

7464 DATA83,75,32,73,78,32,68,73 :rem 117 

7472 DATA83,75,32,68,82,73,86,69 trem 125 

7480 DATA44,13,84,72,69,78,32,80 :rem 109 

7488 DATA82,69,83,83,32,70,49,46 :rem 123 

7496 DATA17,13,147,17,32,69,78,84 » rem 167 

7504 DATA69,82,32,78,65,77,69,32 trem 120 

7512 DATA79,70,32,66,79,79,84,13 trem 117 

7520 DATA80,82,79,71,46,32,157,84 trem 158 

7528 DATA72,69,78,32,80,82,69,83 trem 124 

7536 DATA83,13,82,69,84,85,82,78 trem 125 

7544 DATA46,17,13,32,77,65,88,73 trem 112 

7552 DATA77,85,77,32,76,69,78,71 trem 130 

7560 DATA84,72,32,61,32,49,54,13 trem 96 

7568 DATA32,67,72,65,82,65,67,84 trem 124 

7576 DATA69,82,83,46,17,17,13,147 trem 165 

7584 DATA17,32,18,84,85,82,78,32 trem 115 

7592 DATA67, 79,77,80,85,84,69,82 trem 138 

7600 DATA32,79,70,70,47,79,78,13 trem 108 

7608 DATA84,79,32,82,69,83,69,84 trem 131 

7616 DATA32,86,69,67,84,79,82,83 trem 130 
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Can't decide whether to use lots of REMs and ex- 
tra spaces to make your program more readable, i j 
or keep it tight so that it executes faster? When 
you have "Crunch" in your programmer's tool- 
box, you won't have to make that decision. This 
machine language utility quickly compacts any 
BASIC program, and even makes sure that vital 
lines are retained. 



When you program, it's almost as if you're being pulled in 
two opposite directions. On the one hand, you'd like to in- 
clude lots of REMarks and spaces between keywords to make 
the program more readable, and to make it easier to locate 
sections as you debug. But on the other hand, you'd like to 
use as little memory as possible. The shorter the program, the 
faster it will run. 

This short (264 bytes) machine language program crunches 
a BASIC program in memory. It removes extra spaces and 
REM statements, making the program shorter. Now you don't 
have to worry about those two opposite directions; you can 
write a program overflowing with REMs and spaces, save it 
for documentation, and then crunch it to increase speed and 
free up memory. That's the version you'll actually use. 

What Gets Crunched? |_J 

"Crunch" checks each BASIC program line for unnecessary 
spaces (those that aren't in quotes or part of a DATA state- 
ment), and then removes them. j ; 

REM statements are handled with extra care to insure that 
the BASIC program works exactly the same after crunching. 
Since it's not unheard of for GOTOs and GOSUBs to refer to a |_J 
line which contains only a REM, they all can't be deleted. 
Therefore, any REM-only line is compacted, but not com- 
pletely eliminated. The line number and the REM statement j ' 
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j — I remain, but any text following REM is deleted. We'll call this 

■ an empty REM. 

All other REMs (for instance, those included as part of a 
(~""| line which contains other, non-REM statements) are entirely 

' ' erased. The connecting colon (:) is also deleted in this case. 

As Crunch runs, it prints a number sign (#) for each line 

nof the BASIC program. Each time Crunch removes one or 
more spaces, or removes part or all of a REM, you'll see a left 
arrow («-) to show that memory is being compacted. When all 
BASIC program lines have been crunched, a CLR is per- 
formed, control returns to BASIC, and the READY prompt ap- 
pears. The program has been compacted and is ready to use. 
Note that the spaces between a line number and the first 
statement on that line are not in memory, but are printed by 
the LIST command. Also, empty REMs, as described above, 
take up only five bytes each. These lines are easy to spot 
when you list a program; if you want to remove them, you'll 
have to do it manually by typing the line number and press- 
ing RETURN. Make sure those empty REM lines are not target 
lines for GOTO, GOSUB, or IF-THEN statements. 

Entering and Running Crunch 

Crunch is fully relocatable, and starts at the LOAD address. 
To enter the program, use MLX, "The Machine Language Edi- 
tor" found in Appendix D. Unlike other methods of entering 
machine language programs, MLX is easy to use and will al- 
most insure that you have a working copy of the program 
when you finish typing it in. MLX will ask for two addresses 
after you've loaded and run it. Those are: 

Starting address: 50400 
Ending address: 50663 

Now you can type in Crunch. Save it (through the Save op- 
tion of MLX) to tape or disk. You can load Crunch by entering 

H l£>AD"filename",8,l for disk 

or 

I — I LOAD" 'filename", 1,1 for tape 

After loading Crunch, type NEW and press RETURN to 
reset BASIC'S pointers. Now you can enter or load any BASIC 
[""} program as usual. To start Crunch, type SYS 50400 and hit 

RETURN. After several seconds (the time depends on how 
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long the BASIC program is), the READY prompt will show. 
You can list, save, and run the crunched BASIC program as 
you would any other. (It would be a good idea to first save it 
to tape or disk, just in case.) 



U 
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Crunch 

For easy entry of this machine language program, be sure to use "The Machine Language 
Editor: MIX," Appendix D. 

50400 :165, 043, 133, 251, 165, 044, 001 

50406 : 133, 252, 160, 001, 162, 000, 170 

50412 1177,251,240,053,169,035,137 

50418 :032 , 210 , 255 , 160 , 003 , 200 ,078 

50424 : 177, 251, 201, 000, 240, 062, 155 

50430 : 201 , 131 , 240 , 058 , 201 , 034 , 095 

50436 :240, 072, 201, 143, 240, 081, 213 

50442 : 201 ,032 , 208 , 233 , 152 ,072 , 140 

50448 :024, 101, 251, 133, 253, 169, 179 

50454 :000, 101, 252, 133, 254, 200, 194 

50460 : 232, 177, 251, 201, 032, 240, 137 

50466 : 248 , 208 , 091 , 133 , 002 , 165 ,113 

50472 :045, 133, 047, 133, 049, 165, 100 

50478 : 046 , 133 ,048 , 133 , 050, 165 , 109 

50484 :055, 133, 051, 165, 056, 133, 133 

50490 : 052 , 096 , 160 , 000 , 177 , 251 , 026 

50496 :170, 200, 177, 251, 133, 252, 223 

50502 s 134, 251 , 240 , 160 , 208 , 158 , 197 

50508 :240, 170, 200, 177, 251, 201, 035 

50514 : 000, 240, 231, 201, 034, 208, 228 

50520 : 245, 240, 156, 192, 006, 144, 047 

50526 : 002 , 136 , 136, 152 ,024, 105 , 137 

50532 :001, 072, 101, 251, 133, 253, 143 

50538 : 169, 000, 101, 252, 133, 254, 247 

50544 : 200, 232, 177, 251, 201, 000, 149 

50550 : 208 , 248 , 202 , 208 , 005 , 104 , 069 

50556 :208, 190, 240, 204, 134, 002, 078 

50562 :169, 095, 032, 210, 255, 056, 179 I j 

50568 :165, 045, 229, 002, 133, 045, 243 I — ) 

50574 : 165 , 046 , 233 , 000 , 133 , 046 , 253 

50580 : 162, 000, 164, 002, 177, 253, 138 

50586 :129, 253, 024, 165, 253, 105, 059 M 

50592 »001,133,253,165,254,105,047 

50598 : 000, 133, 254, 197, 046, 208, 236 

50604 : 235, 165, 253, 197, 045, 208, 251 

50610 : 229, 165, 251, 072, 165, 252, 032 
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I — | 50616 S072, 160, 000, 056, 177, 251, 132 

i 1 50622 : 229, 002, 145, 251, 170, 200, 163 

50628 :177, 251, 240, 013, 233, 000, 086 

50634 : 145, 251, 133, 252, 134, 251, 088 

\ — | 50640 :136, 240, 232, 208, 230, 170, 144 

' l 50646 : 129, 251, 104, 133, 252, 104, 163 

50652 :133, 251, 104, 168, 169, 000, 021 

, , 50658 :240, 154, 035, 005, 255, 013, 160 
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Gerald E. Sanders , 

1 > 

Many operations with your 1540 or 1541 disk 
drive can be tedious and difficult. This menu- 

driven program allows you to change a disk j j 

name, unscratch and scratch disk files, and even 
print out various lists of disk files, all with just a 
few keypresses. 



Have you ever needed to unscratch a program or file on a 
Commodore 1540/1541 disk? Did you ever want to rename 
an old disk without erasing the other files? Have you ever 
saved a program to disk and then seen a funny-looking title 
when you listed the directory? Or found you couldn't deter- 
mine the right combination of characters to scratch the un- 
wanted file? And then did you search the disk manual in vain 
to find the commands to rescue you from your predicament? 

While there are no neat, one-word commands to solve 
these types of problems, all the necessary information is there 
in the manual. The trouble is, it's somewhat scattered and 
cryptic. It may take some time to find what you're looking for. 

But by using "Disk Surgeon," a menu-driven program 
that allows you to perform several disk operations, you can 
avoid the disk manual and frustration altogether. 

On Call 

Use "The Automatic Proofreader" (from Appendix C) to help j | 

you type in Disk Surgeon. The Proofreader insures that you'll — ' 
enter Disk Surgeon correctly the first time. Once you have it 

typed in, save it to disk. Run it as you would any BASIC pro- j | 

gram by entering LOAD" filename" ,8. — ' 

Simply insert the disk you want to operate on and press 

any key. The disk drive will whir for a moment, and the disk's I j 
name and ID will display. If this is the disk you intended 
(you've got a chance to change your mind at this point), press 

the Y key and the disk's directory is read into memory. It may j j 
take a few moments, so be patient. 
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You'll see an eight-option menu on the screen. Now you 
can go to work. The program is self-explanatory for the most 
part, and takes you step by step through whatever process you 

j— j select, but a quick review of the options and their features 

' ' may help. 



Operations 

Once started, Disk Surgeon can be stopped only by exiting 
through the main menu. The POKE 808,234 in line 10 dis- 
ables the RUN/STOP and RESTORE keys. This was done to 
prevent leaving the program at a point where a direct access 
file might be left open and a change not completed. That 
could have unfortunate results. If the fact that the RUN/STOP 
and RESTORE keys are disabled bothers you, just delete the 
POKE from line 10. 

At any time after the main menu has appeared, you can exit 
an operation before it's completed by pressing the f 1 key at a 
Y/N prompt. Hitting the f 1 key returns you to the main menu. 

In the unlikely event of a disk read/write error, Disk Sur- 
geon won't crash, but will ask if you want to stop or restart 
the program. It will restart from the very beginning. 

Notice that the messages are color-coded. Blue characters 
are used for general information and data. Black letters in- 
dicate a wait. White's used to signal you that the program is 
waiting for input. Cyan characters echo your input where nec- 
essary, and red letters show errors or cautions. 
Here are the eight operations you can perform with the 
Surgeon. 

Operation 1 — Change disk name. To change the disk's 
name, just hit the 1 key and type in the new name. Up to 16 
characters are allowed. You can use the DELete key to erase 
characters if you change your mind or mistype something. 
There's a check to insure the name is what you wanted; press 
Y if it's okay, N if it's not. Disk Surgeon then changes the 
disk's name. You'll see the new name in the status line at the 
top of the screen when the main menu again appears. 
j— , Operation 2 — View directory. Use this to look at the 

i _ \ disk's directory. Ten files are displayed per screen. Press any 

key to continue with the viewing. Once all the files have been 
p— , shown, you can look at them again by pressing the f 7 key, or 
I ( even print them out (assuming you have a printer connected 
to your 64) by hitting the f3 key. 

! ! 279 



5 Utilities 



U 

u 



u 



Operation 3 — Unscratch file. Possibly the most valuable i | 

operation in Disk Surgeon, this feature allows you to recover < — ' 

files that you previously scratched (either through Disk Sur- 
geon, or through the "SOfilename" method), provided that i ( 
DOS (Disk Operating System) has not already overwritten <■ — J 
them with another file. Operation 3 is 100 percent effective in 
recovering scratched files if you use it immediately after the 
scratch is performed. The likelihood of success diminishes rap- 
idly as the number of files written to the disk after the scratch 
increases. 

There's another reason you should try to unscratch a file 
immediately after it's been scratched. If you scratch a file, save 
a different file to that same disk, then try to unscratch, you 
may damage the file saved between the scratch and unscratch 
operations. That's because the saved file may have used some 
of the sectors freed by the earlier scratch operation. When you 
try to unscratch, the program may try to retrieve those sectors, 
ruining the saved file. 

Pressing the 3 key sends Disk Surgeon to work. It finds 
all the scratched files (all the ones not already written over) 
and displays them one at a time, asking if you want to recover 
each one. Answer with a Y or N keypress. If you do want to 
unscratch that file, you then have to tell the Surgeon what 
type of file it is. You've got a choice between sequential, pro- 
gram, user, or relative files. Disk Surgeon works for a moment 
and then validates the disk. The validation is automatically 
done (in this operation, as well as the two scratch operations) 
to insure that files are not ruined. It takes a moment. You can 
verify that the file is back by viewing the directory again 
when you return to the main menu. 

Warning: validation of a disk will de-allocate blocks alio- i ( 

cated for random access files. Don't use Disk Surgeon on disks 1 — I 
that contain random access files. 

Operation 4— Scratch file— leave on directory. One of ( , 

the two scratch operations, this one allows you to scratch the I I 

file, but retains it on the directory. This feature can be useful, 
especially when you later decide you want to unscratch it. As , , 

long as its name is still on the directory, you shouldn't have ! — ! 

any trouble locating it. Just as in operation 3, you'll see the 
filenames one at a time. Pressing the Y key begins the scratch , , 

feature; hitting the N key moves you to the next filename. I ! 

(Warning: After pressing the Y key, there is no chance to 
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r~[ change your mind. Make sure you want to scratch that file, or 
you'll have to unscratch it with operation 3.) Before this op- 
eration returns to the main menu, it validates the disk. 

Operation 5 — Scratch file — take off directory. Identical 
to operation 4, except that the scratched filename is dropped 
from the directory. 
r~) Operation 6 — Print directory. If you have a printer con- 

'~- ] nected to your Commodore 64, you can use this operation to 
print the entire directory, just the valid files, only the deleted 
files, or all the program files. These options are available once 
you press the 6 key when the main menu is on the screen. 

Operation 7— Go to another disk. Once the Surgeon is 
working, you can change disks by hitting the 7 key and insert- 
ing the new disk you want to operate on. 

Operation 8— Exit. Unless you delete the POKE 808,234 
from line 10, this is the only way you can exit the Surgeon. 
You'll see the READY prompt on the screen. Type RUN and 
press RETURN if you've changed your mind and want to use 
the Surgeon again. 

Not a Medical School 

This program is simply a utility. You don't have to know how 
DOS works in order to use it. But if you do want more de- 
tailed information on DOS and how it operates, take a look at 
"Disk Tricks," which I also wrote. It's in the September 1984 
issue of COMPUTE'S Gazette. (In fact, Disk Surgeon is, for the 
most part, a software package which includes three of the four 
small programs listed in that article.) 

You'll find Disk Surgeon easy to use, and best of all, a 
tremendous help in several disk manipulations. 

) I Disk Surgeon 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

_ 10 POKE53280,11:POKE53281,12:PRINT"{BLU}":POKE808, 
j( 234 » rem 19 

20 DIMF$(144,4),T$(4),M$(3) :rem 58 

30 F0RX=679T0718:READA:P0KEX,A:NEXT :rem 6 
40 T$(0)="DELETED":T$(1)="SEQUENT.":T$(2)="PROGRAM 
"tT$(3)="USER" :rem 161 

45 T$( 4)= "RELATIVE" :rem 67 

50 M$(0)="{BLK} PRINTING ENTIRE DIRECTORY... PLEASE 

{SPACE} WAIT." trem 246 

60 M$(1)="{BLK) PRINTING VALID FILES ... PLEASE WA 

IT." :rem 95 
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70 M$(2)="{BLK} PRINTING SCRATCHED PILES ... PLEASE 

{ SPACE }WAIT.{BLU}" :rem 161 ) j 



u 



80 M$(3)="{BLK} PRINTING PROGRAM FILES ... PLEASE WA 
IT. " :rem 11 

90 GOTO710 :rem 58 

100 INPUT#15,E,E$,ET,ES :rem 57 

110 IFE<20THENRETURN : rem 19 

120 PRINT "{ CLR }{ RED }{RVS}{ 10 SPACESjDISK ERROR 111 

{16 SPACES} {BLU}":PRINT: PRINT: PRINT :rem 177 ( / 
125 PRINT: PRINT :rem 236 < — > 

130 PRINTE,E$:PRINTET,ES :rem 31 

140 PRINT#15,"I" :rem 100 

150 CLOSE8:CLOSE15 :rem 90 

160 PRINT : PRINT: PRINT: PRINT "{WHT} PRESS ANY KEY TO 
RESTART PROGRAM." :rem 46 

170 PRINT: PRINT: PRINT: PRINT: PRINT "{RED} {4 SPACES }H 
IT 'PI' TO QUIT." :rem 95 

180 WAIT198,l:GETA$:IFA$="{Fl}"THEN2410 :rem 118 
190 RUN :rem 143 

200 PRINT"{BLU}{2 SPACESjMAIN MENU:" :rem 22 
210 PRINT: PRINT" {2 SPACES} 1. CHANGE DISK NAME" 

:rem 124 
230 PRINT:PRINT"{2 SPACES}2. VIEW DIRECTORY" 

:rem 125 
240 PRINT: PRINT" {2 SPACES}3. UNSCRATCH PILE" 

:rem 90 

250 PRINT: PRINT" {2 SPACES}4. SCRATCH PILE-LEAVE ON 

DIRECTORY" :rem 165 

260 PRINT: PRINT" {2 SPACES} 5. SCRATCH FILE-TAKE OFF 

DIRECTORY" :rem 157 

270 PRINT: PRINT" {2 SPACES}6. PRINT DIRECTORY" 

:rem 215 
280 PRINT: PRINT" {2 SPACES}7. GO TO ANOTHER DISK" 

:rem 12 
290 PRINT: PRINT" {2 SPACES }8. QUIT PROGRAM": rem 244 
300 PRINT :PRINTSPC( 9)" {WHT} WHICH OPTION? (1-8) 

:rem 240 , 
310 WAIT198,1:GETA$:IFA$<"1"ORA$>"8"THEN310 j ' 

:rem 169 
320 RETURN :rem 117 

330 OPEN15,8,15,"I":GOSUB100 :rem 40 

340 OPEN8,8,8,"#":GOSUB100 :rera 167 

350 PRINT#15,"U1:"8;0;T;S:GOSUB100 :rem 233 
360 PRINT#15,"B-P:"8;BP:GOSUB100 :rem 104 

370 PRINT#8,D$;:GQSUB100 :rem 156 jl 

380 PRINT#15,"U2:"8;0;T;S:GOSUB100 :rem 237 — ' 
390 CLOSE 8 :CLOSEl 5: RETURN :rem 122 

400 OPEN15,8,15,"I" seem 219 

410 OPEN8,8,8,"#" :rem 90 

420 PRINT#15,"U1:"8;0;T;S:GOSUB100 :rem 231 
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430 GET#8,NT$sIFNT$=""THENNT$=CHR$(0) :rem 136 
440 NT=ASC(NT$) :rem 101 

450 GET#8,NS$sIFNS$=""THENNS$=CHR$(0) :rem 135 
460 NS=ASC(NS$) srem 101 

470 BL$="" :rem 206 

480 F0RX=1T0254 :rem 135 

490 GET#8,A$sIFA$=""THENA$=CHR$(0) :rem 107 
500 BL$»BL$+A$ «rem 198 

510 NEXT srem 213 

520 GOSUB100 :rem 168 

530 CLOSE 8: CLOSE 1 5: RETURN :rem 118 

540 PRINTsPRINTsPRINTSPC(2)"{BLK}DISK WILL NOW BE 

{SPACE J VALIDATED " :rem 21 

545 PRINT sPRINT » PRINTSPC( 13) "PLEASE WAIT. "srem 181 
550 OPEN15,8,15,"V"sCLOSE15sRETURN srem 30 
560 SYS679sIPA=5THEN1010 srem 173 

570 PRINTM$(A-l)sOPEN4,4sPRINT#4sPRINT#4sPRINT#4," 
PROGRAM NAMEs ";CHR$( 16); srem 246 

580 PRINT #4, "20TYPE:":PRINT#4:PRINT#4 : rem 11 
590 PORX=0TO143 srem 133 

600 IFA=1THENIFLEFT$ (F$ (X, 1 ) , 1 )=CHR$ ( 0)THEN660 

srem 137 
610 IFA=2THENIFASC(F$(X,0))<129THEN660 srem 206 
620 IFA=3THENIFASC(F$(X,0))>128ORLEFT$(F$(X,1),1)= 
CHR$(0)THEN660 srem 158 

630 IFA=4THENIFASC(F$(X,0))ol30THEN660 srem 8 
640 P$=F$(X,l)sT=ASC(F$(X,0))-128sIFT<0THENT=0 

srem 94 
650 PRINT#4,P$jCHR$(16);"20";T$(T) srem 76 

660 NEXT srem 219 

670 CLOSE4sPRINTSPC( 8 )"{BLU} PRINTOUT COMPLETE ..." 

srem 72 
680 PRINT s PRINTS PRINTS PRINT" {WHT} HIT ANY KEY TO RE 
TURN TO THE MAIN MENU." srem 14 

690 PRINT sPRINT"HIT {RVS}F3{OFF}TO GO TO PRINT OPT 
ION MENU." srem 222 

700 WAIT1 98,1 s GETA$s RETURN srem 100 

710 PRINT" {CLrHRVSMbLU} {13 SPACESjDISK SURGEON 

{15 SPACES}" srem 123 

720 PRINT s PRINT s PRINTSPC ( 5 ) " { BLU } PLEASE INSERT THE 

DISK TO BE" srem 72 

730 PRINTS PRINTSPC (12) "OPERATED UPON." srem 144 

740 PRINTsPRINTsPRINTsPRINTSPC(6)"{WHT}PRESS ANY K 

EY WHEN READY." srem 102 

750 WAIT198,lsGETA$sSYS679 srem 46 

760 PRINT: PRINT sPRINT sPRINT sPRINT srem 70 

765 PRINTSPC(1)"{BLK}READING DISK CONTENTS, PLEASE 

WAIT. " srem 71 

770 T=18sS=0sGOSUB400 srem 224 

780 FORX=143T0158 srem 244 
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790 IFMID$(BL$,X,1)=CHR$(96)THEN800 :rem 214 , 
795 IFMID$(BL$,X,1)<>CHR$(160)THENDN$=DN$+MID$(BL$ [_J 

#X,1) :rem 94 

800 NEXT :rera 215 

810 DI$=MID$(BL$,161,2):SYS679 :rem 137 

820 PRINT" {BLU} DISK NAME: "DN$ :PRINT:PRINT"DISK ID 

: "DI$ :rem 59 

830 PRINT:PRINT:PRINTSPC(2)"{WHT}IS THIS THE CORRE 

CT DISK? (Y/N)" :rem 192 

840 WAIT198, 1 :GETA$ :IFA$ <> "Y"ANDA$ <> "N"THEN840 

:rem 163 
850 IFA$="N"THENRUN :rem 132 

860 SYS679 : PRINT: PRINT: PRINT :PRINTSPC (4) "{BLK} READ 

ING DIRECTORY INTO MEMORY." :rem 142 

870 PRINT:PRINT:PRINTSPC(13)"PLEASE WAIT.":rem 182 
880 T=18:S=1:R=0 :rem 142 

890 GOSUB400 :rem 181 

900 PORX=0TO7 :rem 31 

910 F$(X+R*8,0)=MID$(BL$,X*32+1,1) :rem 242 
920 F$(X+R*8,1)=MID$(BL$,X*32+4,16) :rem 45 
930 F$(X+R*8,2)=CHR$(T) : rem 207 

940 F$(X+R*8,3)=CHR$(S) : rem 208 

950 F$(X+R*8,4)=CHR$(X*32+2) : rem 195 

960 NEXT :rem 222 

970 IFNT<>0ANDNS<=18THENT=NT:S=NS:R=R+1 :GOTO890 

:rem 41 
980 IF(X+R*8)>=143THEN1010 :rem 188 

990 FORZ=(X+R*8)TO144:F$(Z,0)=CHR$(0):F$(Z,1)=CHR$ 

(0):F$(Z,2)=CHR$(0) :rem 37 

1000 F$(Z,3)=CHR$(0):F$(Z,4)=CHR$(0):NEXT :rem 219 
1010 IPLEN(DN$)<16THENDN$=DN$+" " :GOTO1010 :rem 86 
1020 TL$="{CLR}{RVS}{BLU} DISK NAME: "+DN$+" 

{3 SPACES} ID: "+DI$+"{3 SPACES}" : rem 180 
1030 PRINTTL$ :rem 21 

1040 GOSUB200 :rem 215 

1050 SYS679:A=VAL(A$) .-ONAGOTO1060, 1480, 1670, 1950, 2 
120,2290,2400,2410 :rem 145 

1060 PRINT: PRINT "{BLU} INPUT NEW DISK NAME UP TO 16 
CHARACTERS." : rem 1 

1070 PRINT:PRINTSPC(6)"{WHT}PRESS { RVS } RETURN { OFF } 

WHEN FINISHED." :rem 141 I I 

1080 NN$="":X=0:PRINT:PRINTSPC(6)"{CYN}"; :rem 34 — ' 
1090 WAIT198,1:GETA$ :rem 125 

1100 IFA$=CHR$(13)THEN1160 :rem 160 \ \ 

1110 IFA$="{F1} ,, THEN1010 :rem 174 I i 

1120 IFA$=CHR$(20)ANDLEN(NN$)>0THENX=X-1 :NN$=LEFT$ 
(NN$,(LEN(NN$)-1)) :rem 182 

1125 IFA$=CHR$(20)ANDLEN(NN$)>0THENPRINTCHR$(20);: I j 

GOTO1090 .rem 199 ' — ' 

1130 IFA$=CHR$(20)ANDLEN(NN$)=0THEN1090 :rem 211 
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1140 NN$=NN$+A$ :X=X+1 :PRINTA$; : IFX=16THEN1160 

trem 185 
1150 GOTO1090 :rem 202 

1160 SYS679 : PRINT "{ BLU } NEW NAME: ";NN$ :rem 215 
1170 PRINT:PRINT:PRINTSPC(8)"{WHT}IS THIS CORRECT? 
(Y/N)" :rem 232 

1180 WAIT1 98 , 1 :GETA$ : IFA$< > " Y"ANDA$<> "N"ANDA$< > " 

{F1}"THEN1180 :rem 122 

1190 IFA$="N"THENSYS679:GOTO1060 irem 156 

1200 IFA$="{F1}"THEN1010 :rem 174 

1210 IFLEN(NN$)<16THENNN$=NN$+CHR$(160) :GOTO1210 

:rera 29 
1220 SYS679: PRINT : PRINT: PRINT: PRINT :PRINTSPC( 10)" 

{BLKjCHANGING DISK NAME." :rem 114 

1230 T=18:S=0:BP=144:D$=NN$:GOSUB330 :rem 75 
1240 OPEN15,8,15,"I" :CLOSE15 :rem 36 

1250 SYS679: PRINT: PRINT: PRINT: PRINT: PRINTSPC( 9)" 

{BLU} NAME CHANGE COMPLETE." :rem 113 

1260 DN$=NN$:FORX=0TO500:NEXT:GOTO1010 :rem 72 
1480 PRINT" {BLU} VIEW DIRECTORY:" :rem 231 

1490 PRINT:PRINT" NO.", "FILE TYPE", "{2 SPACES}FILE 
NAME {BLU}": PRINT :rem 154 

1500 Z=0:POKE686,4:POKE698,200 :rem 200 

1510 FORX=0TO9 :rem 79 

1520 A=(ASC(F$(X+Z*10,0)))-128:IFA<0THENA=0:rem 89 
1530 IF(A=0ANDF$(X+Z*10,1)="")OR(A=0AND(ASC(F$(X+Z 

*10,1))=0))THEN1590 :rem 2 

1540 PRINTX+(Z*10)+1,T$(A),"{2 SPACES}" fF$( X+Z* 10, 

1) :rem 205 

1550 NEXT trem 10 

1560 PRINT:PRINT:PRINTSPC(3)"{WHT}PRESS ANY KEY TO 
CONTINUE LIST { BLU }":WAIT198,1:GETA$ :rem 72 
1570 IFA$="{F1}"THEN1630 :rem 192 

1580 SYS679:PRINT:PRINT:Z=Z+1:GOTO1510 :rem 194 
1590 PRINT:PRINT:PRINT"{BLU}LIST COMPLETE. {WHT}PR 

ESS {RVS}F7{OFF} TO VIEW AGAIN." :rem 47 
1600 PRINT:PRINTSPC(4) "PRESS {RVS}F3{OFF} TO PRINT 
DIRECTORY." :rem 135 

1610 PRINT: PRINT" PRESS ANY KEY TO GO TO THE MAIN 

{SPACE} MENU." :rem 3 

1620 WAIT198,1:GETA$ :rem 124 

1630 POKE686,2:POKE698,40 :rent 155 

1640 IFA$="{F7}"THENSYS679:GOTO1480 :rem 220 
1650 IFA$="{F3}"THENSYS679:GOTO2290 :rem 219 
1660 GOTO1010 :rem 200 

1670 PRINT" { BLU }UNSCRATCH FILE: " :POKE686,4:POKE698 

,160 :rem 3 

(-] 1680 V=0 :rem 146 

L I 1690 FORX=0TO143:A=(ASC(F$(X,0)))-128:IFA<0THENA=0 

:rem 114 
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1700 IFA>0THENGOTO1890 : rem 64 , 

1710 IFA=0AND(LEFT$(F$(X,1),1)=CHR$(0)ORLEFT$(F$(X [J 

,1),1)=CHR$(160))THEN1890 : rem 139 

1720 SYS679:PRINT:PRINT:PRINTX+1,F$(X,1) :rera 20 
1730 PRINT:PRINT:PRINTSPC(2)"{WHT}WANT TO UNSCRATC | I 

H THIS FILE? {2 SPACES} (Y/N) {BLU} " :rera 253 I — ) 
1740 WAIT198,l:GETA$:IFA$o"Y"AND A$<>"N"ANDA$<>" 

{F1}"THEN1740 :rem 126 

1750 IFA$="N"THEN1900 : rem 137 j 

1760 IFA$="{Fl}"THENPOKE686,2:POKE698,40:GOTO1010 

:rem 253 
1770 SYS679:PRINT"{BLU}WHAT FILE TYPE?" : rem 115 
1780 PRINT: PRINT" {2 SPACES} 1. SEQUENTIAL" : rem 194 
1790 PRINT: PRINT" {2 SPACES}2. PROGRAM" :rem 225 
1800 PRINT:PRINT"{2 SPACES}3. USER" :rem 1 
1810 PRINT: PRINT" {2 SPACES}4. RELATIVE" :rem 32 
1820 PRINT: PRINT" {RED} {2 SPACES}5. ABORT UNSCRATCH 

{BLU}" :rem 36 

1830 PRINT : PRINT :PRINTSPC( 10 )"{WHT} WHICH TYPE? (1- 

5)" :rem 160 

1840 WAIT198,1:GETA$:IFA$<"1"ORA$>"5"THEN1840 

:rem 24 
1850 IFA$=" 5 "THENPOKE686 , 2 : POKE698 , 40 :GOTO1010 

:rem 173 
I860 FT=VAL(A$)+128:FT$=CHR$(FT):BP=ASC(F$(X,4)):T 

=ASC(F$(X,2)):S=ASC(F$(X#3)) :rem 146 
1870 D$=FT$:GOSUB330 :rem 131 

1880 F$(X,0)=FT$:V=1 :rem 57 

1890 SYS679:PRINT:PRINT:PRINTSPC(11)"{BLK}... WORK 

ING ...{BLU}" :rem 141 

1900 NEXT :rem 9 

1910 SYS679:PRINTSPC(2)"{BLU}NO MORE DELETED FILES 
ON THIS DISK." :rem 107 

1920 IFV=1THENGOSUB540 :rem 103 

1930 PRINT:PRINT:PRINTSPC(2)"{WHT}HIT ANT KEY TO R 

ETURN TO MAIN MENU." : rem 249 

1940 WAIT198,1:GETA$:POKE686,2:POKE698,40:GOTO1010 

:rem 193 
1950 PRINT" {BLU} SCRATCH FILE - LEAVE ON DIRECTORY: 

":POKE686,4:POKE698,200 :rem 72 

I960 V=0 :rem 147 

1970 FORX=0TO143:A=(ASC(F$(X,0)))-128:IFA<0THEN206 

:rem 141 

1980 SYS679:PRINT:PRINT:PRINTX+1,F$(X,1) :rem 28 j j 
1990 PRINT : PRINT :PRINTSPC(2)"{WHT} WANT TO SCRATCH < — ' 

{SPACE}THIS FILE?{3 SPACES }|Y/N) {BLU-} " : rem 98 
2000 WAIT198,1:GETA$:IFA$<>"Y"ANDA$<>"N"ANDA$<>" , . 

{F1}"THEN2000 :rem 106 | \ 

2010 IFA$="N"THEN2070 :rem 126 
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2020 IFA$="{Fl}"THENPOKE686,2:POKE698,40:GOTO1010 
It :rem 243 

2030 BP=ASC(F$(X,4)):T=ASC(F$(X,2)):S=ASC(F$(X,3)) 

:rem 247 

<•— i 2040 D$=CHR$(128) :GOSUB330 :rem 168 

J I 2050 F$(X,0)=CHR$(128):V=1 :rem 94 

2060 SYS679: PRINT : PRINT :PRINTSPC( 11 )"{BLK} ... WOR 

KING . . . { BLU } " : rem 131 

J""*! 2070 NEXT :rem 8 

'-- ' 2080 SYS679:PRINTSPC(5)"{BLU}NO MORE FILES ON THIS 

DISK." :rera 118 

2002 IFV=1THENGOSUB540 :rem 102 

2100 PRINT:PRINT:PRINTSPC(2)"{WHT}HIT ANT KEY TO R 

ETURN TO MAIN MENU." :rem 239 

2110 WAIT198,1:GETA$:POKE686,2:POKE698,40:GOTO1010 

:rem 183 
2120 PRINT" {BLU} SCRATCH FILE - TAKE OFF DIRECTORY: 
":POKE686,4:POKE698,200 :rem 52 

2130 V=0 :rem 137 

2140 FORX=0TO143:A=(ASC(F$(X,0)))-128:IFA<0THEN223 
:rem 130 

2150 SYS679:PRINT:PRINT:PRINTX+1,F$(X,1) :rem 18 
2160 PRINT:PRINT:PRINTSPC(2)"{WHT}WANT TO SCRATCH 

{ SPACE }THIS FILE? {3 SPACES} (Y/N) {BLU }": rem 88 
2170 WAIT198, 1 :GETA$ : IFA$<> "Y"ANDA$< > "N"ANDA$< > " 

{F1}"THEN2170 :rem 122 

2180 IFA$="N"THEN2240 :rem 133 

2190 IFA$=" {Fl } "THENPOKE686 , 2 :POKE698,40 :GOTO1010 

:rem 251 
2200 BP=ASC(F$(X,4)):T=ASC(F$(X,2)):S=ASC(F$(X,3)) 

:rem 246 

2210 D$=CHR$(0):GOSUB330 :rem 60 

2220 F$(X,0)=CHR$(0):V=1 :rem 242 

2230 SYS679:PRINT:PRINT:PRINTSPC(11)"{BLK}. .. WORK 

ING ...{BLU}" :rem 130 

2240 NEXT :rem 7 

^-, 2250 SYS679:PRINTSPC(5)"{BLU}NO MORE FILES ON THIS 

/ ( DISK." s rem 117 

2260 IFV=1THENGOSUB540 :rem 101 

2270 PRINT: PRINT :PRINTSPC(2)"{WHT}HIT ANT KEY TO R 

ETURN TO MAIN MENU." :rem 247 

2280 WAIT198 , 1 :GETA$ :POKE686 , 2 :POKE698, 40 :GOTO1010 

:rem 191 

2290 PRINT:PRINT:PRINT"{BLU}PRINT DIRECTORY OPTION 

S:" :rem 243 

2300 PRINT: PRINT" {2 SPACES}1. PRINT ENTIRE DIRECTO 

RY" -rem 197 

2310 PRINT: PRINT" {2 SPACES}2. PRINT ONLY VALID FIL 

ES" .rem 112 
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2320 PRINT: PRINT" {2 SPACES}3. PRINT ONLY DELETED F 

ILES" :rem 249 J! 

2330 PRINT: PRINT" {2 SPACES}4. PRINT ONLY PROGRAM P 

ILES" :rem 28 

2340 PRINT: PRINT" {2 SPACES} 5. ABORT PRINT OPTION" | f 

:rem 162 l — i 
2350 PRINT:PRINT:PRINTSPC(9)"{WHT}WHICH OPTION? (1 

-5)" :rem 13 

2360 WAIT198,1:GETA$:IFA$<"1"ORA$>"5"THEN2360 ] ' 

:rem 20 
2370 A=VAL(A$) :GOSUB560 : rem 56 

2380 IPA$="{F3}"THENSYS679:GOTO2290 :rem 220 
2390 POKE686,2:POKE698,40:GOTO1010 :rera 212 
2400 RUN :rem 187 

2410 PRINT" {CLR} {BLU} " :POKE808, 237 :CLOSE8: CLOSE 15 : 

END :rem 42 

2420 DATA8 , 72 , 138 , 72 , 152 , 72 , 162 , 2 , 160 , , 24 , 32 , 240 , 

255,160,0,169,32,153,40,4 :rem 133 

2430 DATA153, 0,5, 153, 0,6, 153, 0,7, 200, 208, 241, 104,1 

68,104,170,104,40,96 :rem 132 
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John O. Battle 

Here's an easy way to save machine language pro- 
grams to tape or disk from your Commodore 64. 



You've just written the ultimate character movement routine 
for your latest videogame, and, of course, it's written in ma- 
chine language for speed. Now you want to save it for future 
use. (You certainly don't want to type the routine in and de- 
bug it again.) But how do you get it onto tape or disk? The 
BASIC command SAVE works only for programs written in 
BASIC. You could load in a machine language monitor pro- 
gram and use its SAVE feature, but perhaps you don't have a 
monitor; loading the monitor might even overwrite the routine 
you want to save. 

SAVE and LOAD 

Here's the solution. "ML Saver" is a BASIC program which 
loads in a short machine language routine of its own. This 
routine allows you to easily save other machine language pro- 
grams to tape or disk. And since it's in machine language, it's 
extremely fast. 

_^ Because it's in the form of a BASIC loader, you can use 

PI "The Automatic Proofreader" from Appendix C to help in typ- 

ing it in. The Proofreader makes it almost impossible to make 
a mistake when you enter a program. 

I \ Once ML Saver is typed in and saved to tape or disk, en- 

ter RUN. Since the numbers in the DATA statements in lines 
1000-1300 make up a machine language program, they must 

I i, be typed in exactly, no errors allowed. (For that reason, it's an 

excellent idea to save the program before you try to run it.) 
The program is self-prompting — simply press the letter T (for 

/_ [ SAVE to tape) or D (for disk) when asked. Then enter the 
beginning address for the SAVE and press RETURN. 

r— ; 
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The program will next ask for the final address in the , , 

block of memory to be saved. If you press RETURN without UJ 

entering an ending address, the program will ask instead for 
the total number of bytes you wish to save (beginning with , , 

the byte at the starting address). If your final address is not 1 [ 

greater than your starting address, you'll be asked to enter 

both addresses again. ,- . 

Finally, the program will allow you to specify a filename 1 [ 

for the SAVEd program. This name can be no more than ten 
characters long. 

In order to load a machine language routine that was put 
on tape or disk by ML Saver, use the standard BASIC com- 
mand LOAD, but be sure to follow the device number with a 
comma and a one. For example: 

LOAD"filename",8,l (for disk) 
LOAD" 'filename", 1,1 (for tape) 

The ,1 at the end of the LOAD command tells the computer to 
load the routine into the same memory locations from which it 
was saved. Without it, the auto-relocating feature of the 64's 
LOAD command would cause the routine to be stored begin- 
ning at the normal start-of-BASIC location. 

ML Saver 

For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 
10 PRINT "{CLR}{9 DOWN} {9 RIGHT} {RVS} MACHINE LANGU 
AGE SAVE {RVS}" :rem 239 

70 FOR 1=7424 TO 7489 J rem 36 

80 READ X :rem 220 

90 POKE I,X :NEXT I »rem 39 

95 FOR 1=1 TO 3000:NEXT I :rem 52 

100 PRINT" {CLR}{ 10 DOWN} {6 RIGHT}" :rem 77 

110 PRINT "{RVS}T{OFF}APE OR {RVS}D{OFF}lSK" i , 

:rem 161 j ; 

120 GET D$»IF D$="" THEN 120 :rem 79 

130 IF D$="T" THEN PRINT" {UP } TAPE SELECTED" :LF=1 :D 

N=1:SA=2 :rem 21 

140 IF D$="D" THEN PRINT" {UP} DISK SELECTED" :LF=15: 

DN=8:SA=15 trem 119 

150 IF D$<>"T" AND D$o"D" THEN PRINT "{ UP }": GOTO 1 

20 :rem 115 

160 POKE 7661, LF :rem 88 

170 POKE 7662, DN :rem 90 

180 POKE 7663, SA srem 94 

200 INPUT "STARTING ADDRESS FOR SAVE";S :rem 124 
210 Sl=INT(S/256) :rem 175 
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220 S2=S-S1*256 

230 POKE 251, S2 

240 POKE 252, SI 

245 A$="" 

250 INPUT"FINAL ADDRESS OF SAVE"?A$ 

260 IF A$="" THEN 300 

270 F=VAL(A$) 

280 GOTO 320 
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:rem 33 

:rem 13 

:rem 14 

trem 129 

trem. 63 

:rem 207 

:rem 181 

: rem 104 



300 INPUT "t UP} NUMBER OF BYTES TO BE SAVED" ;N 

:rem 3 
310 F=S+N-1 trem 65 

320 Fl=INT(F/256) :rem 151 

330 F2=F-F1*256 :rem 252 

335 IF F<S THEN PRINT" {3 UP}":GOTO 200 trem 183 
340 POKE 7659, F2 trem 69 

350 POKE 7660, Fl » rem 61 

400 INPUT "PROGRAM NAME";N$ :rem 78 

410 NL=LEN(N$) trem 14 

420 IF NL<10 THEN 460 :rem 37 

430 PRINT"NAME TOO LONG" :rem 171 

440 GOTO 400 :rem 101 

460 POKE 7648, NL :rem 104 

470 FOR 1=1 TO NL :rem 118 

480 POKE 7648+1, ASC(MID$(N$, 1,1)) :rem 255 
490 NEXT I :rem 37 

500 IF D$="D" THEN PRINT "PRESS ANY KEY TO SAVE" 

:rem 129 
505 IF D$="T" THEN PRINT"REWIND TAPE AND PRESS ANY 



KEY" 
510 GET A$ 

520 IF A$="" THEN 510 
530 SYS 7472 
560 END 



trem 138 

:rem 219 

trem 209 

trem 107 

trem 114 



1000 DATA 169,192,32,144,255,173,237,29,174,238,29 

,172,239,29,32,186,255,173 trem 193 

1100 DATA 224,29,162,225,160,29,32,189,255,96,234, 

234,234,234 trem 197 

1200 DATA 169,0,32,144,255,96,234,234,234,234,234, 

234,234,234,234,234 trem 68 

1300 DATA 32,0,29,169,251,174,235,29,172,236,29,32 

,216,255,32,32,29,0 trem 66 
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A Beginner's Guide 
to Typing In Programs 



<— * > What Is a Program? 

'- - > A computer cannot perform any task by itself. Like a car with- 

out gas, a computer has potential, but without a program, it 
isn't going anywhere. Most of the programs published in this 
book are written in a computer language called BASIC. BASIC 
is easy to learn and is built into all Commodore 64s. 

BASIC Programs 

Computers can be picky. Unlike the English language, which 
is full of ambiguities, BASIC usually has only one right way of 
stating something. Every letter, character, or number is signifi- 
cant. A. common mistake is substituting a letter such as O for 
the numeral 0, a lowercase 1 for the numeral 1, or an upper- 
case B for the numeral 8. Also, you must enter all punctuation 
such as colons and commas just as they appear in the book. 
Spacing can be important. To be safe, type in the listings ex- 
actly as they appear. 

Braces and Special Characters 

The exception to this typing rule is when you see the braces, 
such as {DOWN}. Anything within a set of braces is a special 
character or characters that cannot easily be listed on a printer. 
When you come across such a special statement, refer to 
Appendix B, "How to Type In Programs." 

J"! About DATA Statements 

Some programs contain a section or sections of DATA state- 
r ^ ments. These lines provide information needed by the pro- 

i_[ gram. Some DATA statements contain actual programs (called 

machine language); others contain graphics codes. These lines 
^ are especially sensitive to errors. 

/ J If a single number in any one DATA statement is 

mistyped, your machine could lock up, or crash. The keyboard 
^ and STOP key may seem dead, and the screen may go blank. 

i__ * Don't panic — no damage is done. To regain control, you have 

to turn off your computer, then turn it back on. This will erase 
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Get to Know Your Machine 

You should familiarize yourself with your computer before 
attempting to type in a program. Learn the statements you use 
to store and retrieve programs from tape or disk. You'll want 
to save a copy of your program, so that you won't have to 
type it in every time you want to use it. Learn to use your ma- 
chine's editing functions. How do you change a line if you 
made a mistake? You can always retype the line, but you at 
least need to know how to backspace. Do you know how to 
enter reverse video, lowercase, and control characters? It's all 
explained in your computer's manuals. 

A Quick Review 

1. Type in the program a line at a time, in order. Press 
RETURN at the end of each line. Use backspace or the back 
arrow to correct mistakes. 

2. Check the line you've typed against the line in the book. 
You can check the entire program again if you get an error 
when you run the program. 



U 
U 



whatever program was in memory, so always save a copy of < ' 

your program before you run it. If your computer crashes, you LJ 

can load the program and look for your mistake. 

Sometimes a mistyped DATA statement will cause an er- , 

ror message when the program is run. The error message may 1 S 

refer to the program line that reads the data. The error is still 
in the DATA statements, though. 
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How to Type In Programs 



l I To make it easy to know exactly what to type when entering 

one of these programs into your computer, we have estab- 

_*, lished the following listing conventions. 

I \ Generally, Commodore 64 program listings will contain 

words within braces which spell out any special characters: 
{DOWN} would mean to press the cursor down key. 
{5 SPACES} would mean to press the space bar five times. 
To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key would be 
underlined in our listings. For example, S would mean to 
type the S key while holding the SHIFT key. This would ap- 
pear on your screen as a heart symbol. If you find an under- 
lined key enclosed in braces (e.g., {10 N}) , you should type 
the key as many times as indicated (in our example, you 
would enter ten shifted N's). 

If a key is enclosed in special brackets, F< >l, you should 
hold down the Commodore key while pressing the key inside 
the special brackets. (The Commodore key is the key in the 
lower left corner of the keyboard.) Again, if the key is pre- 
ceded by a number, you should press the key as many times 
as necessary. 

Rarely, you'll see a solitary letter of the alphabet enclosed 
in braces. These characters can be entered by holding down 
the CTRL key while typing the letter in the braces. For exam- 
ple, {A} would indicate that you should press CTRL-A. 

About the quote mode: You know that you can move the 
cursor around the screen with the CRSR keys. Sometimes a 

Pj programmer will want to move the cursor under program con- 

trol. That's why you see all the {LEFT}'s, {HOME}'s, and 

i {BLU}'s in our programs. The only way the computer can tell 

i \ the difference between direct and programmed cursor control 

is the quote mode. 
~ Once you press the quote (the double quote, SHIFT-2), 

H you are in the quote mode. If you type something and then try 

to change it by moving the cursor left, you'll only get a bunch 
_-. of reverse-video lines. These are the symbols for cursor left. 

j t The only editing key that isn't programmable is the DEL key; 
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you can still use DEL to back up and edit the line. Once you 
type another quote, you are out of quote mode. 

You also go into quote mode when you INSerT spaces 
into a line. In any case, the easiest way to get out of quote 
mode is to just press RETURN. You'll then be out of quote 
mode and you can cursor up to the mistyped line and fix it. 

Use the following table when entering cursor and color 
control keys: 



When You 
Read: 

{CLR> 
{HOME} 

{UP} 

{DOWN} 

{LEFT} 

{RIGHT} 

{RVS} 

{OFF} 

{BLK} 

{WHT} 

{RED} 

{CYN} 

{PUR} 

{GRN} 

{BLU} 

{YEL} 



Press: 



See: 



SHIFT 



CLR/HOME 



CLRfHOME 



SHIFT 



t CRSRJ ] Q 
t ""* i 1 E 



SHIFT 



•<-CRSR-» 





♦-CRSR — 










CTRL 


9 




CTRL 








CTRL 


1 


CTRL 


2 




CTRL 


3 






CTRL 


4 



CTRL 


5 


"ctrT 


6 




CTRL 


7 




CTRL 


8 







Q 



SO 



When You 
Read: 

gig 

&42 

isi 

FJ63 

B?3 
§8§ 
{ Fl } 
{ F2 } 
{ F3 } 
{ M } 
{F5} 
{ F6 } 
{ F7 } 
{ F8 } 



Press: 

| COMMODORE I [ 1 



See: 

1Q 



| COMMODORE | [ 2 | 
[COMMODORE] [3j 



COMMODORE 



H 



COMMODORE 



otn 



commodore] [T] H 
com modore] |T] n 



COMMODORE 



§m 



■■ 



SHIFT 



[Z 



[shift 


f3 




f5 


[shift 


f5 



a 
[SiS][^F 



U 

u 

u 

u 

u 



u 



WJ 
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Appendix C 

The Automatic Proofreader 

Charles Brannon 



em ^ l "The Automatic Proofreader" will help you type in program 

) i listings without typing mistakes. It is a short error-checking 

program that hides itself in memory. When activated, it lets 
you know immediately after typing a line from a program list- 
ing if you have made a mistake. Please read these instructions 
carefully before typing any programs in this book. 

Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Be 
very careful when entering the DATA statements — don't type 
an 1 instead of a 1, an O instead of a 0, extra commas, and so 
on. 

2. Save the Proofreader on tape or disk at least twice 
before running it for the first time. This is very important be- 
cause the Proofreader erases part of itself when you first type 
RUN. 

3. After the Proofreader is saved, type RUN. It will check 
itself for typing errors in the DATA statements and warn you if 
there's a mistake. Correct any errors and save the corrected 
version. Keep a copy in a safe place — you'll need it again and 
again, every time you enter a program from this book, COM- 
PUTE'S Gazette, or COMPUTE! magazine. 

4. When a correct version of the Proofreader is run, it ac- 
tivates itself. You are now ready to enter a program listing. If 
you press RUN/STOP-RESTORE, the Proofreader is disabled. 

j \ To reactivate it, just type the command SYS 886 and press 

RETURN. 

J""! Using the Proofreader 

~°" All listings in this book have a checksum number appended to 

the end of each line. An example is ":rem 123". Don't enter this 

j) statement when typing in a program. It is just for your infor- 

mation. The rem makes the number harmless if someone does 
type it in. It will, however, use up memory if you enter it, and 

f { it will confuse the Proofreader, even if you entered the rest of 

the line correctly. 
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When you type in a line from a program listing and press ( , 

RETURN, the Proofreader displays a number at the top of i^j 

your screen. This checksum number must match the checksum 
number in the printed listing. If it doesn't, it means you typed 
the line differently than the way it is listed. Immediately re- 
check your typing. Remember, don't type the rem statement 
with the checksum number; it is published only so you can 
check it against the number which appears on your screen. 

The Proofreader is not picky with spaces. It will not no- 
tice extra spaces or missing ones. This is for your convenience, 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces, 
since the Proofreader will catch practically everything else that 
can go wrong. 

There's another thing to watch out for: If you enter the 
line by using abbreviations for commands, the checksum will 
not match up. But there is a way to make the Proofreader 
check it. After entering the line, LIST it. This eliminates the 
abbreviations. Then move the cursor up to the line and press 
RETURN. It should now match the checksum. You can check 
whole groups of lines this way. 

Special Tape SAVE Instructions 

When you're done typing a listing, you must disable the 
Proofreader before saving the program on tape. Disable the 
Proofreader by pressing RUN/STOP-RESTORE (hold down 
the RUN/STOP key and sharply hit the RESTORE key). This 
procedure is not necessary for disk, but you must disable the 
Proofreader this way before a tape SAVE. 

A SAVE to tape erases the Proofreader from memory, so 
you'll have to load and run it again if you want to type an- 
other listing. A SAVE to disk does not erase the Proofreader. 

Hidden Perils 

The Proofreader's home in the 64 is not a very safe haven. 
Since the cassette buffer is wiped out during tape operations, 
you need to disable the Proofreader with RUN/STOP-RE- 
STORE before you save your program. This applies only to 
tape use. Disk users have nothing to worry about. 

Not so for 64 owners with tape drives. What if you type 
in a program in several sittings? The next day, you come to 
your computer, load and run the Proofreader, then try to load 
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r> the partially completed program so you can add to it. But since 

the Proofreader is trying to hide in the cassette buffer, it's 
wiped out! 

What you need is a way to load the Proofreader after 
you've loaded the partial program. The problem is, a tape 
LOAD to the buffer destroys what it's supposed to load. 

After you've typed in and run the Proofreader, enter the 
following lines in direct mode (without line numbers) exactly 
as shown: 

A$="PROOFREADER.T":B$="{10 SPACES }" :F0RX=1T04 :A$=A 

$+B$ :NEXTX 
FORX=886TO1018:A$=A$+CHR$(PEEK(X) ) :NEXTX 
0PEN1 , 1 , 1 , A$ : CLOSE1 

After you enter the last line, you will be asked to press 
record and play on your cassette recorder. Put this program at 
the beginning of a new tape. This gives you a new way to load 
the Proofreader. Anytime you want to bring the Proofreader 
into memory without disturbing anything else, put the cassette 
in the tape drive, rewind, and enter: 

0PEN1:CL0SE1 

You can now start the Proofreader by typing SYS 886. To 
test this, PRINT PEEK (886) should return the number 173. If 
it does not, repeat the steps above, making sure that A$ 
("PROOFREADER.T") contains 13 characters and that B$ con- 
tains 10 spaces. 

The Proofreader will load itself into the cassette buffer 
whenever you type OPENl:CLOSEl and PROOFREADER.T is 
the next program on your tape. It does not disturb the con- 
tents of BASIC memory. 

Replace Original Proofreader 

If you typed in the original version of the Proofreader from 
the October 1983 issue of COMPUTEI's Gazette, you should re- 
place it with the improved version below. 



Automatic Proofreader 

! \ 100 PRI NT "{CLR} PLEASE WAIT. . . " :FORI=886TO1018 :READ 

'~ A:CK=CK+A:POKEI,A:NEXT : rem 86 

110 IF CK017539 THEN PRINT" {DOWN} YOU MADE AN ERRO 
(""-I R": PRINT "IN DATA STATEMENTS .": END : rem 115 

i i 120 SYS886:PRINT"{CLR}{2 DOWN} PROOFREADER ACTIVATE 
D.":NEW :rem 24 
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886 DATA 173,036,003,201,150,208 
892 DATA 001,096,141,151,003,173 
898 DATA 037,003,141,152,003,169 
904 DATA 150,141,036,003,169,003 
910 DATA 141,037,003,169,000,133 
916 DATA 254,096,032,087,241,133 
922 DATA 251,134,252,132,253,008 
928 DATA 201,013,240,017,201,032 
934 DATA 240,005,024,101,254,133 
940 DATA 254,165,251,166,252,164 
946 DATA 253,040,096,169,013,032 
952 DATA 210,255,165,214,141,251 
958 DATA 003,206,251,003,169,000 
964 DATA 133,216,169,019,032,210 
970 DATA 255,169,018,032,210,255 
976 DATA 169,058,032,210,255,166 
982 DATA 254,169,000,133,254,172 
988 DATA 151,003,192,087,208,006 
994 DATA 032,205,189,076,235,003 
1000 DATA 032,205,221,169,032,032 
1006 DATA 210,255,032,210,255,173 
1012 DATA 251,003,133,214,076,173 
1018 DATA 003 



:rem 38 
trem 36 
:rem 45 
:rem 30 
:rem 26 
:rem 50 
:rem 36 
:rem 22 
:rem 27 
:rem 51 
:rem 47 
trem 38 
:rem 34 
trem 43 
trem 47 
:rem 58 
:rem 48 
trem 52 
trem 52 
trem 66 
trem 75 
trem 75 
trem 119 



U 
LI 

U 
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Charles Brannon 



Remember the last time you typed in the BASIC loader for a 
long machine language program? You typed in hundreds of 
numbers and commas. Even then, you couldn't be sure if you 
typed it in right. So you went back, proofread, tried to run the 
program, crashed, went back and proofread again, corrected a 
few typing errors, ran again, crashed again, rechecked your 
typing. . . . Frustrating, wasn't it? 

Until now, though, that has been the best way to get ma- 
chine language into your computer. Unless you happen to 
have an assembler and are willing to tangle with machine lan- 
guage on the assembly level, it is much easier to enter a 
BASIC program that reads DATA statements and POKEs the 
numbers into memory. 

Some of these "BASIC loaders" use a checksum to see if 
you've typed the numbers correctly. The simplest checksum is 
just the sum of all the numbers in the DATA statements. If 
you make an error, your checksum does not match up with 
the total. Some programmers make your task easier by includ- 
ing checksums every few lines, so you can locate your errors 
more easily. 

Now, MLX comes to the rescue. MLX is a great way to en- 
ter all those long machine language programs with a mini- 
,__. mum of fuss. MLX lets you enter the numbers from a special 

/.. I list that looks similar to DATA statements. It checks your typ- 

ing on a line-by-line basis. It won't let you enter illegal charac- 
__, ters when you should be typing numbers. It won't let you 

I I enter numbers greater than 255 (forbidden in ML). It will pre- 

vent you from entering the numbers on the wrong line. In 
,__ short, MLX makes proofreading obsolete. 



Tape or Disk Copies 

In addition, MLX generates a ready-to-use copy of your ma- 
chine language program on tape or disk. You can then use the 
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LOAD command to read the program into the computer, as 
with any other program. Specifically, you enter: 

LOAD "program name",8,l(fot disk) 

or 

LOAD "program name",l,Htot tape) 

To start the program, you need to enter a SYS command that * / 

transfers control from BASIC to your machine language pro- ' — ' 
gram. The starting SYS is always listed in the article which 
presents the machine language program in MLX format. 

Using MLX 

Type in and save MLX (you'll want to use it in the future). 
When you're ready to type in the machine language program, 
run MLX. MLX asks you for two numbers: the starting address 
and the ending address. These numbers are given in the article 
accompanying the ML program you're typing. For example, 
the addresses for "Screen-80" should be 49152 and 52811 
respectively. 

You'll see a prompt. The prompt is the current line you 
are entering from the MLX-format listing. It increases by six 
each time you enter a line. That's because each line has seven 
numbers — six actual data numbers plus a checksum number. 
The checksum verifies that you typed the previous six num- 
bers correctly. If you enter any of the six numbers wrong, or 
enter the checksum wrong, the 64 sounds a buzzer and 
prompts you to reenter the line. If you enter the line correctly, 
a bell tone sounds and you continue to the next line. 

A Special Editor 

You are not using the normal 64 BASIC editor with MLX. For i , 
example, it will accept only numbers as input. If you make a Lji 
typing error, press the INST/DEL key; the entire number is 
deleted. You can press it as many times as necessary, back to . t. 
the start of the line. If you enter three-digit numbers as listed, LJ 
the computer automatically prints the comma and goes on to 
accept the next number. If you enter less than three digits, you ; . 
can press either the space bar or RETURN key to advance to ^j 
the next number. The checksum automatically appears in re- 
verse video for emphasis. , ■ 
To make it even easier to enter these numbers, MLX re- \J 
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defines part of the keyboard as a numeric keypad (lines 
581-584). 



i J 


000 '000 




QQQQwQQQQ 




0OG 000 



When testing it, I've found MLX to be an extremely easy 
way to enter long listings. With the audio cues provided, you 
don't even have to look at the screen if you're a touch-typist. 

Done at Last! 

When you get through typing, assuming you type your ma- 
chine language program all in one session, you can then save 
the completed and bug-free program to tape or disk. Follow 
the instructions displayed on the screen. If you get any error 
messages while saving, you probably have a bad disk, or the 
disk is full, or you made a typo when entering the MLX pro- 
gram. (Sorry, MLX can't check itself!) 

Command Control 

You don't have to enter the whole ML program in one sitting. 
MLX lets you enter as much as you want, save it, and then re- 
load the file from tape or disk later. MLX recognizes these 
commands: 

SHIFT-S: Save 
SHIFT-L: Load 
SHIFT-N: New Address 
SHIFT-D: Display 

Hold down SHIFT while you press the appropriate key. 
MLX jumps out of the line you've been typing, so I recom- 
mend you do it at a prompt. Use the Save command to store 
what you've been working on. It will save on tape or disk as if 
you've finished, but the tape or disk won't work, of course, 
until you finish typing. Remember what address you stopped 
on. The next time you run MLX, answer all the prompts as 
you did before, then insert the disk or tape containing the 
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stored file. When you get the entry prompt, press SHIFT-L to 
reload the partly completed file into memory. Then use the 
New Address command (SHIFT-N) to resume typing. 

New Address and Display 

After you press SHIFT-N, enter the address where you pre- 
viously stopped. The prompt will change, and you can then 
continue typing. Always enter a New Address that matches up 
with one of the line numbers in the special listing, or else the 
checksums won't match up. You can use the Display com- 
mand to display a section of your typing. After you press 
SHIFT-D, enter two addresses within the line number range of 
the listing. You can abort the listing by pressing any key. 

Tricky Stuff 

The special commands may seem a little confusing, but as you 
work with MLX, they will become valuable. For example, what 
if you forgot where you stopped typing? Use the Display com- 
mand to scan memory from the beginning to the end of the 
program. When you reach the end of your typing, the lines 
will contain a random pattern of numbers, quite different from 
what should be there. When you see the end of your typing, 
press any key to stop the listing. Use the New Address com- 
mand to continue typing from the proper location. 

You can use the Save and Load commands to make copies 
of the complete machine language program. Use the Load 
command to reload the tape or disk, then insert a new tape or 
disk and use the Save command to create a new copy. When 
resaving on disk, it is best to use a different filename each 
time you save. For example, I like to number my work and use 
filenames such as ASTROl, ASTR02, ASTR03, and so on. 

One quirk about tapes made with the MLX Save com- 
mand: when you load them, the message FOUND program 
may appear twice. The tape will load just fine, however. 

I think you'll find MLX to be a true labor-saving program. If 

Since it has been tested by entering actual programs, you can 
count on it as an aid for generating bug-free machine Ian- , 

guage. Be sure to save MLX; it will be used for future applica- 4. j 

tions in COMPUTE! books, COMPUTE! magazine, and ^ 

COMPUTB's Gazette. 

u 
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(— i Machine Language Editor: MLX 

[_ For mistake-proof program entry, be sure to use "The Automatic Proofreader," Appendix C. 

10 REM LINES CHANGED PROM MLX VERSION 2.00 ARE 750 
,*i, ,765,770 AND 860 : rem 50 

) \ 20 REM LINE CHANGED FROM MLX VERSION 2.01 IS 300 

: rem 147 

100 PRINT"{CLR}g63";CHR$(142);CHR$(8);:POKE53281,l 
!""*? :POKE53280,1 : rem 67 

J -> 101 POKE 788,52 :REM DISABLE RUN/STOP :rem 119 

110 PRINT" { RVS} {39 SPACES}"; :rem 176 

120 PRINT" {RVS} {14 SPACES} {RIGHT} {OFF} g*l£{RVS} 
{RIGHT} {RIGHT} {2 SPACES} g*§ {OFF} i*3£jRVS}£ 
{RVS} {14 SPACES}"; :rem 250 

130 PRINT "{RVS} {14 SPACES} {RIGHT} gG§ {RIGHT} 
{2 RIGHT} {OFF}£{RVS}£i*l{OFF}g*§{RVS} 
{14 SPACES}"; :rem 35 

140 PRINT" {RVS} {41 SPACES}" :rem 120 

200 PRINT" {2 DOWN} { PUR} {BLK} MACHINE LANGUAGE EDIT 
OR VERSION 2. 02 {5 DOWN}" :rem 238 

210 PRINT"g5§{2 UP}STARTING ADDRESS?{8 SPACES} 

{9 LEFT}"; :rem 143 

215 INPUTS:F=1-F:C$=CHR$(31+119*F) :rem 166 

220 IFS<256OR(S>40960ANDS<49152)ORS>53247THENGOSUB 
3000:GOTO210 :rem 235 

225 PRINT: PRINT: PRINT :rem 180 

230 PRINT"g5§{2 UP}ENDING ADDRESS?{8 SPACES} 
{9 LEFT}"; :INPUTE:F=1-F:C$=CHR$(31+119*F) 

:rem 20 

240 IFE<256OR(E>40960ANDE<49152)ORE>53247THENGOSUB 
3000:GOTO230 :rem 183 

250 IFE<STHENPRINTC$;"{RVS}ENDING < START 

{2 SPACES }":GOSUB1000:GOTO 230 : rem 176 
PRINT: PRINT: PRINT :rem 179 

PRINT"{CLR}";CHR$(14):AD=S :rem 56 

A=l : PRINTRIGHT? ( "0000"+MID$ ( STR$ ( AD ) , 2 ) , 5 ) ; " : " 
; :rem 33 

FORJ=AT06 :rem 33 

GOSUB570:IFN=-1THENJ=J+N:GOTO320 :rem 228 
IFN=-211THEN 710 :rem 62 

IFN=-204THEN 790 :rem 64 

IFN=-206THENPRINT: INPUT" {DOWN }ENTER NEW ADDRES 
S";ZZ :rem 44 

IFN=-206THENIFZZ<SORZZ>ETHENPRINT"{RVS}OUT OF 
{ SPACE} RANGE ":GOSUBl 000 :GOTO410 : rem 225 
IFN=-206THENAD=ZZ:PRINT:GOTO310 :rem 238 
IF N<> -196 THEN 480 :rem 133 

PRINT: INPUT"DISPLAY:FROM";F: PRINT, "TO"; jINPUTT 

:rem 234 
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440 I FF < SORF > EORT < SORT > ETHENP RI NT "AT LEAST " ; S ; " 

{LEFT}, NOT MORE THAN";E:GOTO430 :rem 159 I j 

450 FORI=FTOTSTEP6:PRINT:PRINTRIGHT$("0000"+MID$(S ^—^ 
TR$(I),2),5);":"; :rem 30 

451 FORK=0TO5:N=PEEK(I+K):PRINTRIGHT$("00"+MID$(ST , , 
R$(N),2),3);","; trem 66 l^j 

460 GETA$:IFA$>""THENPRINT:PRINTsGOTO310 :rem 25 

470 NEXTK:PRINTCHR$(20); :NEXTI : PRINT: PRINT :GOTO310 

:rem 50 

480 IFN<0 THEN PRINT :GOTO310 : rem 168 

490 A(J)=N:NEXTJ :rem 199 

500 CKSUM=AD-INT(AD/256)*256:F0RI=1T06:CKSUM=(CKSU 

M+A(I))AND255:NEXT :rem 200 

510 PRINTCHR$ ( 18) ; :GOSUB570 :PRINTCHR$ ( 146) ; : rem 94 

511 IFN=-1THENA=6:G0T0315 :rem 254 
515 PRINTCHR$(20):IFN=CKSUMTHEN530 :rem 122 
520 PRINT: PRINT "LINE ENTERED WRONG : RE-ENTER" :PRI 

NTsGOSUB1000:GOTO3"l0 :rem 176 

530 GOSUB2000 :rem 218 

540 FORI=lT06:POKEAD+I-l,A(I) :NEXT:POKE54272,0 :POK 

E54273,0 :rem 227 

550 AD=AD+6:IF AD<E THEN 310 :rem 212 

560 GOTO 710 :rem 108 

570 N=0:Z=0 :rem 88 

580 PRINT" |£3"; :rem 81 

581 GETA$:IFA$=""THEN581 :rem 95 

582 AV=-(A$="M")-2*(A$=",")-3*(A$=".")-4*(A$="J")- 
5*(A$="K")-6*(A$="L") :rem 41 

583 AV=AV-7*(A$="U")-8*(A$="I")-9*(A$="0"):IFA$="H 
"THENA$="0" :rem 134 

584 IFAV>0THENA$=CHR$(48+AV) :rem 134 

585 PRINTCHR$(20) ; : A=ASC(A$) :IFA=130RA=440RA=32THE 
N670 :rem 229 

590 IFA>128THENN=-A: RETURN :rem 137 

600 IFAO20 THEN 630 :rem 10 

610 GOSUB690 : IFI=1 ANDT=44THENN=-1 : PRINT" {OFF } 

{LEFT} {LEFT}";:GOTO690 : rem 62 

620 GOTO570 :rem 109 

630 IFA<48ORA>57THEN580 :rem 105 

640 PRINTA$; :N=N*10+A-48 : rem 106 

650 IFN>255 THEN A=20 :GOSUB1000:GOTO600 :rem 229 
660 Z=Z+1:IFZ<3THEN580 :rem 71 

670 IFZ=0THENGOSUB1000:GOTO570 :rem 114 

680 PRINT","; : RETURN : rem 240 

690 S%=PEEK(209)+256*PEEK(210)+PEEK(211) :rem 149 

691 F0RI=1T03:T=PEEK(S%-I) :rem 67 
695 IFT<>44ANDT<>58THENPOKES%-I,32:NEXT : rem 205 
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,—, 700 PRINTLEFT$("{3 LEFT} ", 1-1) ;: RETURN : rem 7 

I S 710 PRINT" {CLR}{RVS}*** SAVE ***{3 DOWN}" : rem 236 

715 PRINT" {2 DOWN} (PRESS {RVS} RETURN {OFF} ALONE TO 

CANCEL SAVE) {DOWN}" : rem 106 

O 720 F$="":INPUT"{DOWN} FILENAME" ;F$ : I FF$=""THENPRI 

' ' NT:PRINT:GOTO310 :rem 71 

730 PRINT: PRINT" {2 DOWN} {RVS }T{ OFF} APE OR {RVS}D 

{0FF}ISK: (T/D)" :rem 228 

740 GETA$:IFA$O"T"ANDA$<>"D"THEN740 :rem 36 

750 DV=l-7* (A$="D" ) :IFDV=8THENF$="0: "+F$ :0PEN15 ,8, 

15,"S"+F$:CLOSE15 :rem212 

760 T$=F$!ZK=PEEK(53)+256*PEEK(54)-LEN(T$) :POKE782 

,ZK/256 :rem 3 

762 POKE781,ZK-PEEK(782)*256:POKE780,LEN(T$):SYS65 
469 :rem 109 

763 POKE780,l:POKE781,DV:POKE782,l:SYS65466:rem 69 

765 K=S:POKE254,K/256:POKE253,K-PEEK(254)*256:POKE 
780,253 :rem 17 

766 K=E+1 :POKE782 ,K/256 :POKE781 ,K-PEEK( 782 )*256 : SY 
S65496 :rem 235 

770 IF(PEEK(783)AND1)OR(191ANDST)THEN780 :rem 111 
775 PRINT" {DOWN}DONE.{ DOWN}" :GOTO310 :rem 113 

780 PRINT" {DOWN} ERROR ON SAVE. {2 SPACES }TRY AGAIN. 
":IFDV=1THEN720 :rem 171 

781 OPEN15,8,15:INPUT#15,El$,E2$:PRINTEl$;E2$:CLOS 
E15:GOTO720 :rem 103 

790 PRINT"{CLR}{RVS}*** LOAD ***{2 DOWN}" :rem 212 

795 PRINT" {2 DOWN} (PRESS { RVS } RETURN {OFF} ALONE TO 

CANCEL LOAD)" : rem 82 

800 F$="":INPUT"{2 DOWN} FILENAME "; F$ :IFF$=" "THENP 

RINT:GOTO310 :rem 144 

810 PRINTsPRINT"{2 DOWN} {RVS }T{ OFF }APE OR {RVS}D 

{0FF}ISK: (T/D)" :rem 227 

820 GETA$:IFA$O"T ,, ANDA$<>"D"THEN820 :rem 34 
830 DV=1-7*(A$="D") :IFDV=8THENF$="0:"+F$ :rem 157 

840 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$)sPOKE782 
,ZK/256 :rem 2 

841 POKE781,ZK-PEEK(782)*256:POKE780,LEN(T$):SYS65 
469 :rem 107 

845 POKE780,l:POKE781,DV:POKE782,l:SYS65466:rem 70 

PI 850 POKE780,0:SYS65493 :rem 11 

' 860 IF(PEEK(783)AND1)OR(191ANDST)THEN870 :rem 111 

865 PRINT" {DOWN }DONE. ":GOTO310 :rem 96 

*— ■, 870 PRINT" {DOWN} ERROR ON LOAD . { 2 SPACESjTRY AGAIN. 

i \ {DOWN}":IFDV=1THEN800 :rem 172 
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880 OPEN15,8,15:INPUT#15,El$,E2$:PRINTEl$;E2$:CLOS 

E15:GOTO800 » rem 102 J j 

1000 REM BUZZER :rem 135 

1001 POKE54296 , 15 : POKE54277 , 45 :POKE54278 , 165 

:rem 207 } / 

1002 POKE54276,33:POKE 54273,6:POKE54272,5 :rem 42 l*^> 

1003 FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POK 
E54272,0: RETURN :rem 202 

2000 REM BELL SOUND :rem 78 \ ' 

2001 POKE54296,15:POKE54277,0:POKE54278,247 

:rem 152 

2002 POKE 54276,17 :POKE54273 ,40 :POKE54272 f 0: rem 86 

2003 FORT=1TO100:NEXT:POKE54276,16:RETURN :rem 57 
3000 PRINTC$;"{RVS}NOT ZERO PAGE OR ROM" :GOTO1000 

rrem 89 
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Index 



ADSR envelope 158-59, 177 
limitations of 168 
table 159 

amplitude (sound) 153, 156, 168 

AND, logical 165 

Apple computer 226 

arrays 13-14 
three-dimensional 14-15 

ASCII codes 103 

Atari computer 226 

Atari graphics commands 226-32 

attack (sound) 157-59 

attention span 119 

"Autoload" program v, 250, 269-73 

"Automatic Proofreader, The" program 
299-302 

background color 43 

"BASIC Portion of Hi-Res Graphics Edi- 
tor" program 205-6 

BASIC warm start vector 269-70 

"Blast-off" program 169, 174 

boot program 269 

border color 43 

changing disk name 279 

character modes 43 

characters, oversized 69-74 

children, grade-school 111 

CLOSE statement 71 

CMD statement 71 

collision, sprite 207, 214-16 

colon 23 

"Colorful" program 243-44, 245 

color memory 44 

Commodore 64 Programmer's Reference 
Guide 44, 169, 216 

Commodore User's Guide 121 

"Connect the Dots" program 118-26 

control register, SID 163-64 

"Crunch" program v, 274-76 

cursor 43 

"Custom Character Loader" program 68 

"Custom-80" program 46-48, 60-68 

DATA statement 122, 295-96 

debugging 9 

decay (sound) 157-59 

definition cluster (arrays) 13-14 

delay loop 167 

DIM statement 13 

direct mode 12 

disk directory 278-81 

"Disk Surgeon" program 278-88 



DOS wedge 256 

duty cycle 155-56 

education 109-50 

80-column screen 41-48 

"Family Tree" program 82-92 

1541 disk drive 256 

files, program 4 

files, sequential 4 

frequency (sound) 153, 156, 166-67 

gate bit 164 

gate (sound) 158-59 

GOSUB statement 76 

GOTO statement 9, 24 

graphics 153-245 

high-resolution 44, 216-18, 226-32 

quarter-square 69-70 
graphics commands, Atari 226-32 
graphics screen 195 
handicapped computer users 249-56 
high-resolution graphics 44, 216-18, 

226-32 
"HiSprite" program v, 207-25 

control variables 212-13 

hi-res and 216-18 

interrupt mode 218-19 

link to BASIC 220 

machine language and 219-20 

subroutine addresses 213 
"HiSprite Demo" program 209-10 
hue 230 

illegal variable names, using 20-23 
INPUT statement 24 
integer variables 12-13 
interrupts 44, 218-19 
JEP. See Joystick enhanced programming 
"JEProof" program 254, 263-64 
joystick 77, 177, 194, 249-56 
"Joystick Enhanced Programming" pro- 
gram 249-63 
menu 250-53 

machine language and 255-56 
keywords, BASIC 20-23 
"Laser" program 169, 175 
LET statement 24 
listings 20-25 

indented 22-23 
Logo computer language 131 
loops 6 
luminance 230 
"Machine Language for Hi-Res Graphics 

Editor" program 196-204 
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"Machine Language Saver" program v, 

289-91 
"MLX" program 41-42, 303-310 
"Moving Message" program 101-7 
music, programming 166-68 
"Mystery at Marple Manor" program 

v-vi, 29-40 
"One-Touch Keywords" program v, 

265-68 
OPEN statement 71 
page ejection 4-8 
parsing 138-39 
PILOT computer language 131 
pitch (sound) 153 
pixel 70 
printer 71 

PRINT* statement 71 
program files 4 
programming style 3-8 

loops and 6 
"Programming Without the Keyboard" 

program v 
pulse waveform 155, 177 
quarter-square graphics 69-70 
RAM, BASIC 9-16 

program to read 10-16 
raster register 102 

"Realtime Clock" program 244, 245-46 
registers, SID 162-69 

map 163 
release (sound) 157-59 
REM statement 274 
"Reversi" program vi, 75-81 
ring modulation 177 
ring modulation bit 165 
RUN BASIC routine 24-25 
sawtooth waveform 155 
scratching disk files 280-81 
"Screen Headliner" program 69-74 
"Screen-80" program v, 41-59 

custom character set for 46-47 

DOS wedge and 45-46 

graphics and 44-45 

sound and 45 

using 43-48 
scrolling 101 
sequential files 4 

SID chip v, 155, 158, 161-69, 176 
SID registers 162-69 

map 163 
Simon's BASIC 256 
sine waves 154 
"64 Hi-Res Graphics Editor" program 

192-206 
autoloading 193 
printing 195-96 
sprites and 195 



"64 Paintbox" program 226-42 

ICOLOR command 230 

•DRAWTO command 228-29 

!FILL command 231 

IGRAPHIC command 228 

ILOCATE command 227, 230 

IPLOT command 227, 228 

IPOSITION command 228 

!QUIT command 231 

ISETCOLOR command 229-30 

!TEXT command 231 
sound 153-93 

theory of 153 
sound effects 168-69 
sound envelope 156-61 

examples 160-61 
Sound Interface Device. See SID 
sound registers 161 
"Sound Sculptor" program 176-91 
sprites 44-45, 131, 195, 207 

collision 207, 214-16 
stack 269 
STEP function 121 
STOP statement 9 
storage 

BASIC program 10-11 

direct mode and 12 

string variables 11-12 

variable 11 
ST reserved variable 4 
subroutines 5, 7 

"Supertank" program vi, 93-100 
sustain (sound) 157-59 
sync bit 165 
synchronization 177 
thinking, teaching 131 
TI reserved variable 21, 167 
TI$ reserved variable 21 
TOKENIZE BASIC routine 24-25 
tokens, BASIC 24-25 
triangular waveform 155 
"Tune" program 169, 171-74 
turtle geometry 131 
"Turtle Graphics Interpreter" commands 

BACKGROUNDCOLOR 133 

CLEAN 134 

CLEARSCREEN 134 

DEFINE 135 

ERASEALL 135 

FORWARD 132 

HIDETURTLE 133-34 

HOME 134 

LOAD 135 

NAMES 135 

PENCOLOR 133 

PENDOWN133 

PENDRAW 133 
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PENERASE 133 
PENUP 133 
PRINTHEADING 133 
PRINTPOSITION 133 
PRINTPROCEDURE 135 
QUIT 135-36 
RENAME 135 
REPEAT 134 
RIGHT 132-33 
SAVE 135 
SCRATCH 135 
SETHEADING 133 
SETPOSITION 133 
SHOWTURTLE 133-34 
TURTLECOLOR 133 
"Turtle Graphics Interpreter" program 
131-50 

disk and 135-36 

procedures 135-36 



screen crunching 136 
tape and 136-37 
typing in 132 
"Twiddle" program 169-71 
"Underline" program 244, 245 
unscratching disk files 278, 280-81 
user port 256 

"Variable Utility" program 16-19 
variables 11, 12 

checking for type of 12 
vector 269-70 

volume (sound) 153, 156, 168 
waveform 154-56, 177 

pulse 155, 177 

sawtooth 155 

triangular 155 
"Word Match" program 111-17 
"Word Scramble" program 127-30 
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Keeping the Tradition 

COMPUfF's i?wd Book of Commodate &f continues rhe ho- 
dition of its besf-seling preaecesjors n cresen'mg a wide- 
fo^i^g colection of programs and articles exclusively for 
fhe Ctfnrnodore 64. Program! of mg higher quality and arti- 
cles that clearly ilustrafe co'h srrpie ana: complex program- 
mhg techniques provide sornaihing for every 64 user 

Although many of the programi and artcles were orig- 
inally polished in COIMW?F-'nog«hftOf COMPVJF! J s 
Gazette, several have Pear rod'ieo or even completely 
rewiiten. Qthera have never before been published. Dozens 
of ready-to-'ype-in programs are included, at wel* as uHitisi 
that insure eiror-free BASIC, and machine language 
programs. 

Same o* ihe programs and articles in CQttfPUIEf's ffitop 3 H 

SooJir of Commodora 64 or$: 2 !2 

"Screen-flu," a program which turns your monitor or tele- A <fl 

vision set into an SO-colgmn display. ft — i 

"Famiy Tree," a genealogical storage -arid retrieval <) 5! 

program. r* 3 

Eauca'ional games for chldren which are tun to play ana 
which teach mam and language skills at fhe same time. 0* £P 

' 'Turtle Graphcs Interpreter." an escelenf introduction to &> G 

turtle graphics, an easy way to show chldron how to use y. 

a campuier. 

"JEP," a machine language program whicn alows joy- C^ 

(tfck-contraUed BASIC programing COMPUTE!"* first utilry 
designed by ana *or me physically handicapped. cowuth 

Arcade cna advenfure games, which turn you info a tank Sacks 

gunner or a clever sleuth. _ _ 

UNiiies mat crunch programs, save machine language. | 

rou'ines. or autcmotcaly load any cragon 1 . 
"M PainttO!!," which rums your 64 into an AtarilBe graph- 
ics computer. 

Articles ae'aiing effcient programming style, vaiacle use., 
and easily read programs. 

"nese are the test from COMPUTE! Publications. Vbu'll find 
even; program and article useful, entertahfig. or informative. 
And all ere in fhe trodiiicn you've come to enpect Item a 
COMPUTE! book, tou won't te dtsapoointed. 
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